Hi
wie kann ich einem zur Laufzeit erstellten Timer ein onTimer Ereignis zuweisen?
das Problem hierbei ist nicht der Aufruf (den weiss ich mittlerweile), sondern, dass ich das OnTimer Ereignis aus einer Prozedur zuweisen will...
Delphi-Quellcode:
unit Unit2;
interface
uses Forms, ExtCtrls,Unit1;
procedure moin();
procedure MyTimerEvent(Sender: TObject);
implementation
procedure moin();
var
MyTimer: TTimer;
begin
MyTimer := TTimer.Create(application);
MyTimer.Enabled := True;
MyTimer.Interval := 1000;
MyTimer.OnTimer := MyTimerEvent;
end;
procedure MyTimerEvent(Sender: TObject);
begin
form1.Caption := TimeToStr(Time);
end;
end.