Multithreading GUI

[Der schöne Günther]

Jetzt haben mich doch einige überholt. Hier trotzdem der Text:


Warum baumelt die Methode "test" da so einsam herum? Das gehört doch zu deinem TMyOwnThread . Also

Delphi-Quellcode:

TMyOwnThread = class(TThread)
   protected
      procedure test();
      procedure Execute(); override;
end;

bzw.

TMyOwnThread = class(TThread)
   private
      procedure test();
   protected
      procedure Execute(); override;
end;

Wenn du einen Thread nicht irgendwo manuell freigeben willst, kannst du auf deiner Threadvariable auch FreeOnTerminate := True setzen, das kann manchmal sehr praktisch sein - Der gibt sich dann von alleine wieder frei.

Warum wartest du im OnClick-Handler auf den Thread? Das führt doch das Konzept eines Thread ad absurdum. Es soll doch gerade nicht die Oberfläche blockiert werden, sondern etwas im Hintergrund geschehen. Oder war das gerade nur, weil du ihn ordentlich wieder freigeben wolltest, wenn er zu Ende ist?

Letztendlich: Zum testen sicher gut, aber bitte gewöhn dir für die Praxis besser nicht an, von einem Thread aus etwas in die Formulare "hineinzu-synchronisieren". Der Thread ist für Hintergrund-Arbeiten da.

Weiterhin: Ich finde den Exception-Handler im Thread eher unsinnig. Ich habe noch nicht ganz verstanden, welches Schreckensszenario himitsu eben an die Wand gemalt hat, aber wenn in einem Thread eine Exception ganz nach oben bubbelt dann wird er beendet. Aber doch bitte nicht die ganze Anwendung?


PS: Ein VCL-ShowMessage erstellt ein Formular. In einem Thread keine gute Sache. Bei Firemonkey blicke ich spontan nicht durch. Kann man das in einem Thread überhaupt machen?

PPS: TThread.CreateAnonymousThread(..) ist an sich eine tolle Sache. Sonderlich viel leserlicher finde ich das nicht, insbesondere wenn es umfangreich wird. Für kleine Dinge aber eine Tolle Sache.