Fehlermeldung "Element hat kein übergeördnetes Fenster"

[devidespe]

Zitat von himitsu:

ja und dann wird es hier auch immer wieder gesagt: prüfe nicht auf True und False
while not Terminated do

Mit dieser Änderung ist der Fehler aber nachwievor drin und reproduzierbar.

[himitsu]

Zitat von devidespe:

Mit dieser Änderung ist der Fehler aber nachwievor drin und reproduzierbar.

hab ja nicht gesagt, das es DER Fehler war

PS: hatte oben etwas nachgetragen
und ich hab hier grad 'nen D2009 auf.

[devidespe]

Okay, das ist schon mal etwas brauchbares. Wie kann ich abfragen, ob ein Thread nach Terminate geschlossen ist ? Die Suspend-Eigenschaft kann ich nicht nehmen, da die nur für die vorübergehende Pause von Threads zuständig ist. Es gibt wohl noch Terminated, darauf kann ich aber von der VCL nicht zugreifen.

Als zusätzliche Maßnahme wollte ich wie vorgeschlagen in DoThread prüfen, ob das das Fenster noch existiert. Kannst Du dafür evtl. auch einen Tipp geben ?

Danke schon mal im voraus.

[himitsu]

.Terminated sagt nur, daß der Thread beendet werden soll, aber nicht ob er schon beendet wurde.

Entweder du setzt eine Ereignisprozedur für .OnTerminate und setzt dort etwas in deinem Programm

wenn du in ReturnValue setzt ( <> 0), dann könnte man über ThreadID bestimmt den Wert abfragen.

oder ganz einfach, du machst in deinen TThread-Abkömmling einen neuen Wert (z.B. Boolean), welcher beim Start False ist und setzt den am Ende deiner .Execute diesen via Synchronize auf True und fragst diesen dann in der Schleife ab.

[jbg]

Wie wäre es damit:

Delphi-Quellcode:

  Th1.Terminate;
  Th2.Terminate;
  Th3.Terminate;
  Th1.WaitFor;
  Th2.WaitFor;
  Th3.WaitFor;
  Close;

Zuvor muss aber noch das "while (True)" aus allen Threads raus.

[himitsu]

ahh, WaitFor garb's ja och noch ... hatte da nur erst die Angst, daß dieses die Nachrichtenschleife nicht weiter abrbeiten würde und so 'ne Endlosschleife entstünde

aber es geht

[devidespe]

Zitat von himitsu:

oder ganz einfach, du machst in deinen TThread-Abkömmling einen neuen Wert (z.B. Boolean), welcher beim Start False ist und setzt den am Ende deiner .Execute diesen via Synchronize auf True und fragst diesen dann in der Schleife ab.

Also etwa so:

Delphi-Quellcode:

TBeispielThread1 = class (TThread)
  private
    FMemo: TMemo;
  protected
    procedure Execute; override;
    procedure StarteThread;
    procedure DoThread;
  public
    Beendet : Boolean;
    constructor Create(Memo: TMemo; ThreadPriority: TThreadPriority);
  end;

constructor TBeispielThread1.Create(Memo: TMemo; ThreadPriority: TThreadPriority);
begin
  inherited Create(False);
  Priority:=ThreadPriority;
  FMemo:=Memo;
  Beendet:=False;
end;

procedure TBeispielThread1.Execute;
begin
  while not Terminated do begin sleep(1); StarteThread; end;
  Beendet:=True;
end;

Und dann mit der Schleifenabfrage:

Delphi-Quellcode:

 while (Th1.Beendet=False) or (Th2.Beendet=False) or (Th3.Beendet=False) do
  begin
    Sleep(10);
    Application.ProcessMessages;
  end;

Edit: Habe jetzt WaitFor genommen und es läuft ohne Fehler. Jetzt gibt es noch das Problem, dass ich jeweils in .DoThread prüfen will, ob das das Fenster noch existiert.

[himitsu]

Zitat von devidespe:

Jetzt gibt es noch das Problem, dass ich jeweils in .DoThread prüfen will, ob das das Fenster noch existiert.

wenn du das Fenster nicht schließt, bevor die Threads beendet sind, ist das eigentlich nicht mehr nötig.

[quendolineDD]

Ich habe in meinen Execute-Methoden meiner Threads oft in der Schleife eine Variable, die ich von außen setzen kann.
while CanRun do Und im Hauptprogramm

Delphi-Quellcode:

Thread.CanRun := False;
Thread.Terminate;
Thread.WaitFor;

Und gewöhn dir mal ab, auf False und True abzufragen sondern nutze logische Operatoren wie NOT, AND, OR usw.

Also bei dir
while (not Th1.Beendet) and (not Th2.Beendet) and (not Th3.Beendet) do Vielleicht solltest du dir auch überlegen anstatt auf Beendet abzufragen ob er noch laufen darf, dann musst du nicht immer alles negiert denken. Das macht es auch einfacher ...

Und du solltest auch strikt VCL und Threads voneinander trennen. Die Threads machen keinen Sinn wenn du andauernd über Synchronize auf den Mainthread zugreifst.
Einfach wie himitsu sagt, dafür sorgen das die Threads beendet werden, bevor das Fenster beendet wird.

[himitsu]

@quendolineDD: für den CanRun gibt es die .Terminated Variable im Thread.
Setzt man diese (z.B. durch den Aufruf von .Terminate) auf True, muß sich der Thread selbst beenden.

Zitat:

Die Threads machen keinen Sinn wenn du andauernd über Synchronize auf den Mainthread zugreifst.

och, das seh ich jetzt nur mal als "einfachen" Testcode an, mit welchem er seine Threads testen möchte