Simba Code:
var
frmMain: TForm;
ThreadOne: TTimer;
Params: TVariantArray;
procedure OnTick(Sender: TObject);
begin
Writeln('progress report');
end;
procedure InitialiseTimer;
begin
ThreadOne := TTimer.Create(frmMain);
end;
procedure InitialiseForm;
begin
frmMain := TForm.Create(nil);
end;
begin
ThreadSafeCall('InitialiseForm', Params);
ThreadSafeCall('InitialiseTimer', Params);
ThreadOne.OnTimer := @OnTick;
ThreadOne.Interval := 900;
ThreadOne.Enabled := True;
repeat
Writeln('Mainloop');
Sleep(500);
Until(IsKeyDown(VK_F3));
ThreadOne.Enabled := False;
ThreadOne.Free;
frmMain.Close;
frmMain.Free;
end.
The TTimer isn't working here, any ideas?