[Geref]

Добрый день!

Подскажите пожалуйста как реализовать.
Есть главная форма которая загружает файл с сети и форма2 только с progressbar. Если прогресбар лежит на главной форме то нормально отображает загрузку , если на второй форме то не реагирует.

Пробовал устанавливать таймер на форму 2

Код:

progressbar1.Position:=form1.progressbar1.Position;

но это извращение )

Код:

 uses unit2;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var  LoadStream: TMemoryStream;
begin
   TForm2.Create(self).Show;
   LoadStream := TMemoryStream.Create;
   idHTTP1.Get('http://server.com/file.txt', LoadStream);
   LoadStream.SaveToFile( 'file.txt' );
   LoadStream.Free;
end;

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode; AWorkCount: Int64);
begin
 progressbar1.Position:= AWorkCount;           // работает
 form2.progressbar1.Position:= AWorkCount;   //не работает
 application.ProcessMessages;
end;

procedure TForm1.IdHTTP1WorkBegin(ASender: TObject; AWorkMode: TWorkMode; AWorkCountMax: Int64);
begin
  progressbar1.Min:=0;
  progressbar1.Max:= AWorkCountMax;
  form2.progressbar1.Min:=0;
  form2.progressbar1.Max:= AWorkCountMax;
end;

[angvelem]

Делай после приращения Update.

[Geref]

Сообщение от angvelem

Делай после приращения Update.

Код:

procedure TForm1.IdHTTP1Work(ASender: TObject; AWorkMode: TWorkMode;
  AWorkCount: Int64);
begin
 progressbar1.Position:= AWorkCount;         // работает
 form2.progressbar1.Position:= AWorkCount;   //не работает
 form2.ProgressBar1.Update;
 form2.Update;
 application.ProcessMessages;
end;

Вы имели ввиду так? (не помогло) )

[angvelem]

Работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form32_.Visible then
    form32_.Show;

  PB.Position := PB.Position + 1;
  Form32_.PB.Position := Form32_.PB.Position + 1;
end;

[Geref]

Сообщение от angvelem

Работает:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if not Form32_.Visible then
    form32_.Show;

  PB.Position := PB.Position + 1;
  Form32_.PB.Position := Form32_.PB.Position + 1;
end;

Работает! Большое спасибо!

проблема здесь

Код:

TForm2.Create(self).Show;

надо было )))

Код:

Form2.Show;