Wie kann ich TTimerereignis mit Parameterübergabe aufrufen ?

[madina]

Hallo,

wie konnte ich diesen Timerereignis wie folgt aufrufen:

Timer1Timer(Sender: TObject; TreeView1);

// Eieignis wie folgt definiert, um verschiedene TreeView's einsetzen zu können
procedure TForm1.Timer1Timer(Sender: TObject; TreeView: TTreeView);
begin
TreeView.Add(Nil, 'Hello');
end;

mfg

[Aenogym]

hi,

dazu müsstest du schon deine eigene Timer-komponente von TTimer ableiten und auch dein eigenes TimerEvent definieren.
mit dem TTimer aus der VCL geht das so nicht.

aeno

[jim_raynor]

Du könntest zum Beispiel die Eigenschaft Tag des TTimers missbrauchen.

Mit

Delphi-Quellcode:

Timer1.Tag:=Integer(Treeview1)

kannst den Zeiger auf ein Treeview da drin ablegen und in OnTimer kannst du dann mit

Delphi-Quellcode:

TTreeView(Timer1.Tag)

darauf zugreifen.

[madina]

Hallo Hr jim_raynor,

Ihr Tip funktioniert danke.

mfg