Fórum Evento num Timer #193401
06/11/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
06/11/2003
Beppe
è só passar o nome do método:
Ataliba
tempo.OnTimer := Timer1Timer;
Ataliba
Responder
Gostei + 0
06/11/2003
Aroldo Zanela
Colega,
Exemplo básico.
Exemplo básico.
procedure Teste(Sender: TObject);
...
Timer1.OnTimer:= Teste;
...
procedure TForm1.Teste;
begin
ShowMessage(´Ok´);
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)