Zur Laufzeit erstellter Timer

**bender**

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...

zusammenfalten · markieren

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.

Zur Laufzeit erstellter Timer

Zur Laufzeit erstellter Timer

Forumregeln