Dort würde ich ein EventWait.WaitFor einbauen, das wie ein Timer wirkt.
so?
Delphi-Quellcode:
procedure TLivedataThread.Execute;
var
i: integer;
begin
inherited;
while not Terminated
do
begin
// Invoke terminate, then call abort funtion
if Self.Terminated
then
begin
// call abort-function
// Exit
Exit;
end;
// Callback-Funktion übergeben?
if Assigned(FCallback)
then
// dann VCL-fähig ausführen
Synchronize(DoCallbackVCL);
Sleep(2000);
end;
end;
aber damit könnte ich den Thread nie von aussen beenden?!