Evento num Timer

Delphi

06/11/2003

Ai galera!!

v se alquem pode me ajudar

function TForm1.funcao(variael:txx):boolean;
var
tempo:ttimer;
begin
tempo.Interval:=1000;
tempo.Enabled:=true;
tempo.OnTimer <- Aqui eu queria colocar o evento do me timer, tipo assim a cada segundo faz isto certo, com if e tudo mais.
end;

se alquem puder me ajudar

agradeço.

Valeu!!

end


Jbspio

Jbspio

Curtidas 0

Respostas

Beppe

Beppe

06/11/2003

è só passar o nome do método:
tempo.OnTimer := Timer1Timer;


Ataliba


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

06/11/2003

Colega,

Exemplo básico.

    procedure Teste(Sender: TObject);
...

   Timer1.OnTimer:= Teste;

...
procedure TForm1.Teste;
begin
  ShowMessage(´Ok´);
end;



GOSTEI 0
POSTAR