Einzelnen Beitrag anzeigen

TigerLilly

Registriert seit: 24. Mai 2017
Ort: Wien, Österreich
834 Beiträge
 
Delphi 10.3 Rio
 
#12

AW: Label aktualisieren / TTask

  Alt 14. Jan 2021, 13:41
Schau mal, da ist ein Beispiel:
Code:
  fTask := TTask.Run(procedure()
    var
      i:integer;
    begin
      for i:=1 to 1000 do begin
        if TTask.CurrentTask.Status = TTaskStatus.Canceled then
          break;
        Sleep(10); // damit zeit vergeht ...
        TThread.Synchronize(nil, procedure()
          begin
            Button1.Text := DateTimeToStr(Now);
          end);
      end;
      TThread.Synchronize(nil, procedure()
        begin
          Button1.Enabled := true;
          Button1.Text := 'Start Task'; // beschriftung wiederherstellen
        end);
    end);
Hilft das?
  Mit Zitat antworten Zitat