Hallo Florian,
das lässt sich folgendermaßen lösen:
Delphi-Quellcode:
procedure TConnectPHP.Execute;
var Msg: TMsg;
begin
MyTimer := TTimer.Create(nil);
MyTimer.Enabled := True;
MyTimer.Interval := 10000;
MyTimer.OnTimer := TimerEvent;
while not Terminated do
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;
try MyTimer.Free; except end;
end;
Grüsse
...Doc