TNotifyEvent

[RalfOne]

Es muss ja immer laufen --> Endlosschleife.....(???)
Eben nur zur bestimmten Zeit xxx muss die OnTimer procedure aufgerufen werden!

[Luckie]

Zur Zeit läuft bei dir nur immer die Endlosschleife, da kann deine Anwnedung nichts anderes machen. Wie auch? Was willst du denn erreichen?

[RalfOne]

Schau mal ich habe das hier gerade eben gefunden!
Genau das wollte ich erreichen....

Delphi-Quellcode:

Var
    qDone: boolean = false;

Type
    ToTimerHandler = class(Tobject)
        constructor create (nMs: integer);
        private
        FoT: Ttimer;
        procedure timerCall(o: Tobject);
        end;

Constructor ToTimerHandler.create(nMs: integer);
Begin
    inherited create;
    Fot := Ttimer.create(application);
    Fot.interval := nMs;
    Fot.onTimer := timerCall;
    Fot.enabled := true;
End;


Procedure ToTimerHandler.timerCall(o: Tobject);
Begin
    FoT.Enabled := True;
    writeln;
    writeln;
    write ('Test......');
    qDone := False;
End;

Var
    oT: ToTimerHandler;
Begin
    oT := ToTimerHandler.create(1*10*1000);
    while not qDone do application.processMessages;
    oT.free;
    application.terminate;
End.

Problem ist jetzt nur ich muss es für Linux umschreiben.........