Question

使用Delphi VCL ttimer控制台应用程序问题，怎么解决

Answer 1

program TimerTest;

{$APPTYPE CONSOLE}

uses
SysUtils,
extctrls;

type
TEventHandlers = class
procedure OnTimerTick(Sender : TObject);
end;

var
Timer : TTimer;
EventHandlers : TEventHandlers;

procedure TEventHandlers.OnTimerTick(Sender : TObject);
begin
writeln('Hello from TimerTick event');
end;

var
dummy:string;
begin
EventHandlers := TEventHandlers.Create();
Timer := TTimer.Create(nil);
Timer.Enabled := false;
Timer.Interval := 1000;
Timer.OnTimer := EventHandlers.OnTimerTick;
Timer.Enabled := true;
readln(dummy);
end.