AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Threads nacheinander ausführen

Ein Thema von TheMiller · begonnen am 1. Feb 2009 · letzter Beitrag vom 2. Feb 2009
Antwort Antwort
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.326 Beiträge
 
Delphi 12 Athens
 
#1

Re: Threads nacheinander ausführen

  Alt 2. Feb 2009, 10:07
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?
Ein Therapeut entspricht 1024 Gigapeut.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz