[Mrak]

Приветствую.

Впервые использую потоки. Возникла необходимость показывать движущийся прогресс бар при долгих действиях (н\п призагрузке файла).

Бар в отдельной форме. Почему-то не работает(

Код:

............
  TMyThread = class(TThread)
  private

  protected
    procedure Execute; override;
    procedure Update;
  end;

var
  Form1: TForm1;
  MyThread: TMyThread;

implementation
.........

Код:

procedure TMyThread.Update;
begin
  Form3.ProgressBar1.StepIt;
end;

Код:

procedure tMyThread.Execute;
begin
  while not Terminated do
  begin
    Synchronize(Update);
    sleep(1000);
  end;
end;

Код:

  ........
  if (not Assigned(form3)) then form3:=tform3.Create(form3);
  form3.Show;
  MyThread:=TMyThread.Create(true);

  // долгие операции

  MyThread.Terminate;
  form3.close;
  .........