Zur Laufzeit erstellter Timer

[himitsu]

Ein Hallöle von http://www.FrankNStein.de/Smiley-Wolke2.gif,

Delphi-Quellcode:

Unit Unit2;

Interface
  Uses Forms, ExtCtrls, Unit1;

  Procedure moin();

Implementation
  Type TTimerClass = Class
    MyTimer: TTimer;
    Procedure MyTimerEvent(Sender: TObject);
  End;

  Var TimerClass: TTimerClass;

  Procedure moin();
    Var MyTimer: TTimer;

    Begin
      TimerClass.MyTimer := TTimer.Create(application);
      TimerClass.MyTimer.Interval := 1000;
      TimerClass.MyTimer.OnTimer := TimerClass.MyTimerEvent;
      TimerClass.MyTimer.Enabled := True;
    End;

  Procedure TTimerClass.MyTimerEvent(Sender: TObject);
    Begin
      Form1.Caption := TimeToStr(Time);
    End;

End.

(nicht getestte, aber so in etwa)

[add]
http://www.FrankNStein.de/Smiley-Trauer.gif du bist gemein, hättest du das nicht früher sagen können.


http://www.FrankNStein.de/Smiley-Kuss.gif * * http://www.FrankNStein.de/Smiley-Spinne.gif * * * http://www.FrankNStein.de/Smiley-Winken.gif