TTimer.OnTimer ersetzen

[fLaSh11]

Hallo,

ich habe folgendes Problem (wie kann ich es am einfachsten lösen?):

Ich habe eine Unit gemacht und ein Timer "created" :stupid:.
Nun will ich als Timer1.OnTimer eine selbst gemachte Prozedur setzen, wie geht das?

//Edit: ich habe keine Lust ein TNotifyEvent zu machen, etc.
:wiejetzt:

Für schnelle Hilfe bin ich immer dankbar! :wink:

[mkinzler]

Und warum nicht? Du brauchst doch nur eine Methode mit der selben Signatur erzeugen und diese der Property zuweisen.

[fLaSh11]

ich wollte es so machen:

Delphi-Quellcode:

//...
Timer1.OnTimer:=func1;
//...

procedure func1;
begin
  //blah
end;

so funzt es nicht! Was muss ich ergänzen? :)

[Neutral General]

Delphi-Quellcode:

type
 TForm1 = class(TForm)
  ...
  public
   procedure Timern(Sender: TObject);
 end;
 
var
 ATimer: TTimer;

procedure TForm1.Timern(Sender: TObject);
begin
 // Irgendwas;
end;

procedure Wasweißich;
begin
ATimer := TTimer.Create(*Parameter?!*);
ATimer.Intervall := 100;
ATimer.OnTimer := Timern;
end;

Meinst du das ? :)

Gruß
Neutral General

[fLaSh11]

achso, muss es eine public procedure sein, ich habe nämlich leider keine Form in meiner Unti deklariert...

[Neutral General]

Ich glaube schon :(
Ich habs mal ohne probiert und es ging nicht.. aber das geht mit Sicherheit auch ohne das die Procedure in einer Klasse drin ist .. oder ?

[mkinzler]

Zitat:

achso, muss es eine public procedure sein, ich habe nämlich leider keine Form in meiner Unti deklariert...

Es muß ne Methode sein. Die Klasse ist egal du kannst auch eine Dummy-Klasse mit einer Methode mit TNotifyEvent-Signatur erzeuge und diese zuordnen.

[SirThornberry]

es muss nicht im Public sein, aber es muss auf jeden Fall eine Methode (Procedure eines Objectes) sein.
Wenn du kein Form hast, hast du dann wenigstens eine Nachrichtenschleife? Ansonsten arbeitet der Timer auch nicht richtig.
Im übrigen kannst du dir auch eine Hilfsklasse schreiben.

Delphi-Quellcode:

type
  THelpClass = class(TObject)
  public
    procedure TimerEventProc(Sender: TObject);
  end;
[...]
procedure THelpClass.TimerEventProc(Sender:TObject)
begin
  //Do something
end;
[...]
helpinstance := THelpClass.Create;
Timer.OnTimer = helpinstance.TimerEventProc;

Es gibt auch eine Möglichkeit ohne Methode. Dabei sollte man jedoch wissen das man macht. Und wenn man das weiß kommt man selbst auf die Idee. (Man sollte wissen was der Intern der Unterschied zwischen einer Methode und einer Procedure ist)

[alleinherrscher]

Sagt mal, wenn man ne Unit ohne Form hat: TTimer.Create erwartet als Parameter TComponent. Was gebe ich ihm da an? Kann ich das einfach durch "NIL" ersetzten?

[SirThornberry]

genau, einfach nil übergeben. Der Owner dient ja lediglich dazu das die Komponente automatisch zerstört wird bzw. per FindComponent gefunden wird.