Usando ActiveControl no delphi Delphi

Descrição

Vamos criar uma aplicação VCL, no delphi e depois coloque um objeto TTimer no formulário e insira Timer1Timer no evento OnTimer. 

Coloque outros controles no formulário e altere o controle ativo em tempo de execução. 

O manipulador de eventos a seguir responde aos eventos do timer, movendo o controle ativo um pixel para a direita a cada 100 milissegundos.

Código

Procedure TForm1.Timer1Timer(Sender: TObject);

begin 

  Timer1.Interval := 100;

  if ActiveControl < > null then 

    ActiveControl.Left := ActiveControl.Left + 1;

end;

Este Exemplo e simples, só que fiz uma modificação, adicionei ao formulário, um componente Listbox, para realizar este teste.

Print do Formulário. 

Agora estarei colocando o código da modificação e simples, mas neste caso terá uma idéias do que estou falando.


Código do Formulário

Procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Interval := 100;
  if ActiveControl < > null then
    if ActiveControle.left >= 651 then
       activeControl.Left := 0
  else
      ActiveControl.Left := ActiveControl.Left + 3;

end;

Espero que ajude vocês na manipulação de seus controle.