Interessantes Thema.

Habe ein bisschen ausprobiert:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TMainForm.Button1Click(Sender: TObject);
var
  aTasks: array of ITask;
  i: Integer;
begin
  SetLength(aTasks, 1);
  aTasks[0] := TTask.Create(
    procedure()
    var
      i: Integer;
    begin
      for i := 0 to 100 do begin
        Sleep(100);
        TThread.Synchronize(nil,
          procedure
          begin
            MainForm.lblStatus.text := IntToStr(i);
          end);
      end
    end);
  aTasks[0].Start;
  i := 1;
  while not TTask.WaitForAll(aTasks, 1000) do begin
    lblRunning.text := 'Running ' + IntToStr(i);
    lblStatus.Repaint; // lblRunning wird aktualisiert
    lblRunning.Repaint; // bringt nix
    //self.Update; // nur lblRunning wird aktualisiert
    //Application.ProcessMessages; // beide werden aktualisiert
    Inc(i);
  end;
end;

Zitat von TigerLilly:

Naja, je nach Methode stimmt das mehr oder weniger.

Aber ich würde gern verstehen, warum im Codestück unten so gar nichts aktualisiert wird.

Wenn ich waitforAll richtig verstanden habe, geht es erst weiter wenn alle Tasks abgearbeitet sind.

Gruß
K-H

Zitat von TigerLilly:

Was übersehe ich?

Wenn Du willst, dass Deine UI upgedated wird, musst Du die Procedure, die den Thread gestartet hat verlassen.

Du kannst nicht einen Thread erzeugen und dann "modal" warten... Du musst immer erst die Kontrolle an den UI-Tread/ Main-MessageQueue zurück geben.

Nur wenn die Main-Messagequeue läuft, kann sich die UI aktualisieren. Also überhaupt auf Queue oder Synchronize reagieren. "Früher" hat man zur "NOT" Application.Processmessages aufgerufen. Aber wie wir alle wissen,sollte man das nur im "NOTFALL" machen, weil es in der Regel nur zu Problemen führt.

Beispiel : Ein scheinmodales Fenster ruft in einer Schleife Application.Processmessages auf, daher können andere Programmteile aufgerufen werden, die dann in dieser Schleife laufen... Probleme sind vorprogrammiert.

Mavarik

PS.: Abgesehen davon: Unter VCL geht Dein Aufruf vielleicht - Unter FMX wird die Button Click Animation schon nicht mehr gezeigt (je nach Style). Du solltest auch den Button auf enabled := false setzen. (So wie in meinen Beispiel aus dem anderen Thread)

Zitat von p80286:

Zitat von TigerLilly:

Naja, je nach Methode stimmt das mehr oder weniger.

Aber ich würde gern verstehen, warum im Codestück unten so gar nichts aktualisiert wird.

Wenn ich waitforAll richtig verstanden habe, geht es erst weiter wenn alle Tasks abgearbeitet sind.

Gruß
K-H

Richtig, aber das WaitForAll wird ja alle Sekunde mal abgebrochen.
WaitForAll(aTasks, 1000)

Wie Mavarik schon sagt: scheinmodal