Timer nur in einer Unit zur Laufzeit erzeugen ??

[hm988]

also nach langer Suche .... hab ich eine winzige Hilfsklasse gebastelt , und das ganze in einer eigenen Unit.
Also der Timer läuft jetzt so wie ich es gesucht habe einzeln in einer Unit siehe hier:

Delphi-Quellcode:

unit Unit2;

interface

uses ExtCtrls;    

type
  TMyTimerClass = class(TObject)
    procedure MyTimer;
  private
    Timer : TTimer;
  end;

implementation

 uses Unit1;

procedure TMyTimerClass.MyTimer;
begin
 Timer := TTimer.Create(nil);
 Timer.OnTimer := Form1.TimerEvent;
 Timer.Interval := 1000;
 Timer.Enabled := True;
end;

um zu sehen dass der Timer auch funktioniert, natürlich noch eine Form mit folgendem Code

Delphi-Quellcode:

procedure TForm1.TimerEvent(Sender : TObject);
begin
  Form1.Caption := TimeToStr(now); 
end;

Die procedur ist in public deklariert
und noch einen Button zum starten

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var TimerCreate : TMyTimerClass;
begin
   TimerCreate.MyTimer;       // Funktion MyTimer der Klasse TMyTimerClass ausführen,
                              // Timer wird erzeugt und gestartet
end;