Events bei Konsole-application?

[APP]

Hallo Illuminator-23-5,

Dein anfangs geposteter Code compiliert bei meinem D5 pro zu Hause gar
nicht, mich hat Dein Problem aber interessiert, ich habe folgendes in
einer NG gefunden:

Delphi-Quellcode:

(*$apptype console*)
Program timer;
Uses sysUtils, forms, windows, extCtrls;

(*Demos console app using timer.*)

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 := false;
    writeln;
    writeln;
    write ('Hi there! ...Tell me something ...');
    readln;
    writeln;
    writeln ('Oh my God! You hit Enter? We''re done for!');
    sleep(1000);
    qDone := true;
End;

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

Autor: [e-mail]

Ich hoffe es hilft Dir weiter...