Auf Task warten ohne zu bremsen

[Uwe Raabe]

Das Auslagern in einen Thread/Task und blockierendes Warten auf dessen Ende ist doch irgendwie kontraproduktiv und in der Regel eher schädlich als hilfreich.

Lass doch die Task einfach laufen und prüfe z.B. in einem Timer ob sie schon fertig ist. Währenddessen disable alle Benutzereingaben, die dabei nicht ausgeführt werden können/sollen.

[hoika]

Hallo,
such hier mal nach "semimodal".
Damit geht das in Deinem speziellen Fall auch, ohne Performance zu verlieren.

[Der schöne Günther]

Wenn man sich nicht schämt das direkt auf dem Formular zu machen:

Delphi-Quellcode:

unit GUI.MainForm;

interface uses
   System.SysUtils,
   System.Classes,
   System.Threading,

   Vcl.Graphics,
   Vcl.Controls,
   Vcl.Forms,
   Vcl.Dialogs,
   Vcl.StdCtrls;

type
   TMainForm = class(TForm)
      Button1: TButton;
      Label1: TLabel;
      procedure Button1Click(Sender: TObject);
   private var
      myTask: ITask;
      waitingForm: TForm;
   private
      procedure someWork();
      procedure signalCompletion();
   end;

var
   MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.Button1Click(Sender: TObject);
begin
   myTask := TTask.Run(someWork);
   waitingForm := TForm.Create(self);
   waitingForm.ShowModal();
end;

procedure TMainForm.signalCompletion();
begin
   waitingForm.ModalResult := mrClose;
end;

procedure TMainForm.someWork();
begin
   TThread.Sleep(2000);
   TThread.Queue(TThread.Current, signalCompletion);
end;

end.

PS: Freigabe des Popups nicht vergessen.

[freejay]

Also ich würde überhaupt nicht auf das Ende des Threads warten sondern als letzte Aktion in dem Thread einfach eine Event-/Callback-Prozedur aufrufen. Oder spricht da was dagegen?

[lxo]

Zitat von freejay:

Also ich würde überhaupt nicht auf das Ende des Threads warten sondern als letzte Aktion in dem Thread einfach eine Event-/Callback-Prozedur aufrufen. Oder spricht da was dagegen?

Jetzt mache Ich es genau so. Klappt wunderbar.
Da ich eh ein InfoForm Modal öffne ist alles weiter im Hintergrund blockiert und am Ende des Threads wird das Form einfach geschlossen.

Danke für eure Anregungen und Tipps.

Habe bisher nicht ganz so viel mit Threads gearbeitet aber so langsam machts immer mehr Klick und schafft auch viele neue Ideen und Lösungen.