evento num timer

Question

Ai Galera valeu!!
Mas ainda continua dando erro, veja o que fiz:

function TForm1.funcao(variavel:xxx):boolean;
var
tempo:ttimer;
begin
tempo.Interval:=1000;
tempo.Enabled:=true;
tempo.OnTimer=Evento; (erro da aqui)
end;

procedure TForm1.Evento;
begin
...................
end;

Beppe · Answer

Voc� esqueceu do par�metro Sender...Ataliba...

Jbspio · Answer

Valeu!!  Mas eu ja coloquei o sender.... olha o erro que da: Incompatible types: �TNotifyEvent� and �procedure, untyped pointer or untyped parameter�...

Beppe · Answer

[code:1:fa7467b27d]type  TForm1 = class(TForm)  public    function funcao(variavel:xxx):boolean;     procedure TempoOnTimer(Sender: TObject);  end;function TForm1.funcao(variavel:xxx):boolean; var   tempo:ttimer; begin   tempo.Interval:=1000;   tempo.Enabled:=true;   tempo.OnTimer:=TempoOnTimer; end; procedure TForm1.TempoOnTimer(Sender: TObject);begin...end;[/code:1:fa7467b27d]Seria +- assim. Acho que voc� usou = ao inv�s de := na linha do erro.Ataliba...

F�rum evento num timer #193407