Hallo!
Sind Threads und Timer nicht kompatibel oder wie? Ich erstelle im Thread einen Timer und der führt die OnTimer-Procedure überhaupt nicht aus!
z. B.:
Code:
...
type
TMyThread = class(TThread)
private
{private declarations}
timer: TTimer;
FStartTime: TDateTime;
procedure TimerOnTimer(Sender: TObject);
protected
procedure Execute; override;
end;
...
procedure TMyThread.TimerOnTimer(Sender: TObject);
begin
Form1.Edit1.Text := FormatDateTime('NN:SS', Now - FStartTime);
end;
procedure TMyThread.Execute;
begin
FStartTime := Now;
timer := TTimer.Create(nil);
timer.OnTimer := TimerOnTimer;
timer.Interval := 100;
...
while not terminated do
begin
//Hier macht der Thread sein Hauptjob
end;
...
timer.Free;
end;
Mache ich etwas falsch?