В консольном приложении, создаю объект, в котором есть Timer
. Но его событие OnTimer
не срабатывает и я ни как не пойму, почему?
Project2:
program Project2;
{$APPTYPE CONSOLE}
{$R *.res}
uses
System.SysUtils, Unit1 in 'Unit1.pas';
var
MyObject: TMyObject;
begin
MyObject := TMyObject.Create;
Readln;
FreeAndNil(MyObject);
end.
Unit1:
unit Unit1;
interface
uses
System.SysUtils, System.Classes, FMX.Types;
type
TMyObject = class
protected
FTimer: TTimer; // class(TFmxObject)
procedure OnTimer(Sender: TObject);
public
constructor Create();
destructor Destroy; override;
end;
implementation
constructor TMyObject.Create();
begin
inherited Create;
Self.FTimer := TTimer.Create(nil);
Self.FTimer.Interval := 1000;
Self.FTimer.OnTimer := OnTimer;
Self.FTimer.Enabled := True;
end;
procedure TMyObject.OnTimer(Sender: TObject);
begin
writeln(DateTimeToStr(Now));
end;
destructor TMyObject.Destroy;
begin
Self.FTimer.Enabled := False;
FreeAndNil(Self.FTimer);
inherited;
end;