evento num timer

Delphi

06/11/2003

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;


Jbspio

Jbspio

Curtidas 0

Respostas

Beppe

Beppe

06/11/2003

Você esqueceu do parâmetro Sender...

Ataliba


GOSTEI 0
Jbspio

Jbspio

06/11/2003

Valeu!!

Mas eu ja coloquei o sender.... olha o erro que da:


Incompatible types: ´TNotifyEvent´ and ´procedure, untyped pointer or untyped parameter´


GOSTEI 0
Beppe

Beppe

06/11/2003

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;


Seria +- assim. Acho que você usou = ao invés de := na linha do erro.

Ataliba


GOSTEI 0
POSTAR