Auf Task warten ohne zu bremsen

[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.