Anwendung von Synchronize in TThread

[Luckie]

Die einfache Möglichkeit:

Delphi-Quellcode:

uses
  Unit3;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  Thread: TBeispiel;
begin
  Thread := TBeispiel.Create(True);
  Thread.FreeOnTerminate := True;
  Thread.Resume;
end;

procedure TForm1.Update;
begin
  ProgressBar1.StepIt;
end;

Delphi-Quellcode:

implementation

uses Unit1;

{ TBeispiel }

procedure TBeispiel.Execute;
var
  i: Integer;
begin
  for i := 0 to 9 do
  begin
    Update;
    sleep(1000);
  end;
end;

procedure TBeispiel.Update;
begin
  Synchronize(Form1.Update)
end;