Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Форма ожидает 100% заполнения progressbar

Автор: Dobermann 6.12.2008, 19:32

При запуске проги, одновременно запускается progressbar, дабы создать видимость загрузки приложения. Только вот форма не показывается, пока полностью не заполнится progressbar, вообщем видно только границы формы и границы progressbar'a! Из-за чего могут быть такие тормоза???
Может кто сталкивался??? smile

Автор: THandle 6.12.2008, 19:42

Dobermann, конечно же в цикле заполняешь ProgressBar?

Показывай свой код/тестовый проект.

Хотя вообще, делать видимость загрузки - плохое занятие.

Автор: Dobermann 6.12.2008, 19:50

Ну да, в цикле...

Примерно так:

Код


на открытие формы(всего приложения)
for i:=1 to 100 do
ProgressBar1.position:=ProgressBar1.position+1;

Пробовал на mousemove формы, всё равно...а вот на mousemove кнопки, которая на форме - вот тогда более менее...но все же хотелось бы разобраться со стартовым запуском progressbar'a

Автор: THandle 6.12.2008, 20:02

Dobermann, в OnShow не делай. Оно сначала пробежит, а потом покажется.

Делай через Таймер.
http://forum.vingrad.ru/index.php?showtopic=184407&view=findpost&p=1332216

Автор: Dobermann 6.12.2008, 20:19

Цитата(THandle @ 6.12.2008, 20:02

)

Оно сначала пробежит, а потом покажется.

Вот в этом и проблема! Сперва загружается(пока тормозит окно проги), а потом показывается уже загруженная...

Цитата(THandle @ 6.12.2008, 20:02

)

Делай через Таймер.http://forum.vingrad.ru/index.php?showtopi...t&p=1332216

Автор: Dobermann 7.12.2008, 01:22

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if ProgressBar1.Position = ProgressBar1.Max then
   begin
     Timer1.Enabled := false;
     ProgressBar1.Visible := false;
   end
 else
   ProgressBar1.Position := ProgressBar1.Position + 1;
end;

Сделал так, работает нормально!
Добавил еще и label, и вот тут косячок:

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if ProgressBar1.Position = ProgressBar1.Max then
   begin
     Timer1.Enabled := false;
     ProgressBar1.Visible := false;
   end
 else
 begin 
   ProgressBar1.Position := ProgressBar1.Position + 1;
   label1.caption := format('Loading ' + inttostr(progressbar1.position) + '%', [progressbar1.position]);
end;

Вообщем тут косяк с процентами! Их label просто не показывает...
Показывает:
Loading 1
Loading 2
Loading 3
....
Loading 100
НО не показывает % !!!
Так (inttostr(progressbar1.position)+ '%') тоже не помагает...

Автор: Dobermann 7.12.2008, 01:44

Все, сделал!

Код


 begin 
   ProgressBar1.Position := ProgressBar1.Position + 1;
   label1.caption := format('Loading ' + inttostr(progressbar1.position) + '%', [progressbar1.position]);
   label1.caption := label1.caption + '%'; 
end;

Автор: THandle 7.12.2008, 11:15

Код


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ProgressBar1.Position = ProgressBar1.Max then
  begin
    Timer1.Enabled := false;
    ProgressBar1.Visible := false;
  end
  else
  begin
    ProgressBar1.Position := ProgressBar1.Position + 1;
    label1.caption := format('Loading ' + '%d%s', [ProgressBar1.Position, '%']);
  end;
end;

% - знак задающий формат выводимых данных в функции format smile

Автор: Dobermann 7.12.2008, 11:23

понятно...