Threads nacheinander ausführen

**himitsu**

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

zusammenfalten · markieren

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?

Threads nacheinander ausführen

Re: Threads nacheinander ausführen

Forumregeln