Zitat von
DJ-SPM:
Ja.
hmmm, ich verwende dieses TThread einfach nicht genug, aber wenn ich so in den Code seh, dann müßte es aufgerufen werden
PS: es gibt auch eine TThreadList (grad drüber gestolpert)
grad probiert ... bei mir geht's
Delphi-Quellcode:
type TMyThread =
Class(TThread)
protected
procedure execute;
override;
end;
procedure TMyThread.execute;
begin
asm int 3
end;
beep;
end;
procedure TForm1.RunNextThread(Sender: TObject);
begin
asm int 3
end;
beep;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
asm int 3
end;
with TMyThread.Create(true)
do begin
OnTerminate := RunNextThread;
FreeOnTerminate := True;
Resume;
end;
end;
natürlich in D7 getestet (hast Glück, daß ich das noch drauf hab ^^)
Zitat von
DJ-SPM:
Also,
habe noch rausgefunden, dass der Thread immer hängen bleibt, sobald irgendwo "Synchronize" aufgerufen wird. Das verstehe ich nicht.
ok, das klärt es ... das OnTerminate wird auch per Synchronize im Hautthread ausgeführt.
Ist mit deinem Hauptthread alles in Ordnung?