TNotifyEvent til TTimer.OnTimer

Den skal vist være deklereret som

procedure timerAction(Sender: TObject);
begin
  // do something...
end;

for at du kan bruge den.

jeps, TTimer.OnTimer er defineret som en standard TNotifyEvent, med (Sender : TObject) som parameter. Så hvis du gør som lrj siger, skulle det virke

ha\' det godt
hatecaps :-)

Så var det et svar :)

lol , det var bedre ! ;-)

Yearh :)

Virker det ikke?

hmm, måske har serveren spist hans begrundelse.. 

du skal bare skrive:

timer.ontimer := timerAction;

Så sætter du eventen til.

timer.ontimer := nil; slår den fra igen.

Disse 2 svarer til i design/events at oprette/slette ontimer eventen.

Om du har (sender : tobject) med som parameter i TimerAction procedurer er ikke vigtigt. Det er afhængigt af hvad du laver i proceduren. Den vil virke fint nok uden.

Det var det jeg prøvede i starten. Men der kommer noget brok om at \'method pointer\' og \'regular procedure\' er \'incompatible\'. Som jeg ser problemet skyldes det type erklæringen af TNotifyEvent: procedure ... of object; hvor of object gør at den foretrækker(!) at timeren og proceduren er lagt på samme klasse( eks. TForm ).
(PS. Jeg undskylder til de to herrer der savner mit svar, man er vel rookie.)

:)

Du kunne så gøre følgende, hvis ikke du vil bruge timeren i et objekt:

type
myTimer = class (TTimer)
  procedure MyTimerAction(sender: tobject);
  constructor myCreate;
end;

implementation

constructor mytimer.mycreate;
begin
  inherited create(nil);
  ontimer := mytimeraction;
end;

Mon ikke det skulle kunne gøre tricket?

OK, vi accepterer ( selvom jeg helst ville have undgået klassen, men jeg blev stemt ned ). Mange tak for hjælpen.

Tak :)

Problemerne du har haft hænger vist sammen med at eventhandlers skal sidde på objekter, som du også selv har fundet ud af. En indbygget \"feature\" i Delphi. Men det er nu meget smart, for så kan du have flere objekter som har hver deres handler som ikke behøves opføre sig helt ens. Så måske er det ikke så dumt endda.