ProgressBar в заставке приложения

[Freedom]

Как вывести в ProgressBar процесс компиляции в окне заставки
приложения? (если поняли о чем идет речь)

[zetrix]

Хм... сам чё-то не допёр... Процесс компиляции? Это как? Твоя программа при заставке что-то компилирует? Круто!

[rpy3uH]

показывай это окно и обновляй прогрессбар
а в чём собственно проблема????

[Virtson]

Application.ProcessMessages
нужно выполнять периодически, либо случайно вместе с изменением прогресса (если у вас непрерывный процесс идет :^).

[SuperVisor]

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

Как вывести в ProgressBar процесс компиляции в окне заставки приложения?

А ты уверен, что это вообще возможно (Видел где-то)?

[Freedom]

Похоже слово "компилирует" ввело вас в некоторое заблуждение... Под словом компилируется в данном случае я имел ввиду запуск приложения. Объясню на примере: Допустим при загрузке Word, появляется окно-заставка. Так вот у моей программы есть такая же заставка, и туда необходимо засунуть ProgressBar, который показывает сколько "через какое время откроется главное окно программы". Делать это через Timer нецелесообразно.

Надеюсь внес хоть какую то внятность...

[SuperVisor]

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

Надеюсь внес хоть какую то внятность...

Да, теперь все стало на порядок понятнее. Для начала тебе следовало бы разделить весь процесс на стадии: Загрузка 1-й dll, загрузка компонента, загрузка картинки и т.д. Чем больше делений - тем лучше. И после каждого деления обновляешь прогрес бар. Если программа с самого начала открывает файл и что-то с ним делает, то это - вообще наилучший вариант. Допустим я в одной програмке делал компонент TThread, который загружал инфу из файла и одновременно обновлял процесс загрузки относительно размера файла.

[Virtson]

2 Freedom

ну Word при загрузке может че-то (напр, выделение памяти) делает.

твоя же программа может загружаться моментально..
не хочешь Timer? делай sleep()

но не цикл же для сцециальной загрузки процессора

[KORN]

а может просто вокни прогресбар задай значение от 0 до 50 и когда доходит до определенного участка кода когда программа что то загружает то просто добавляй к примеру по 10 к позиции прогрессбара и еще можно добавить label в которую при загрузке чего либо будет выдаваться то что делается в данный момент... к примеру

procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Caption:='Загрузка в memo1';
  memo1.Lines.LoadFromFile('c:\1.txt');
  progressbar1.Position:=progressbar1.Position+10;

  label1.Caption:='Загрузка в memo2';
  memo1.Lines.LoadFromFile('c:\2.txt');
  progressbar1.Position:=progressbar1.Position+10;

  label1.Caption:='Загрузка в listbox1';
  listbox1.Items.LoadFromFile('c:\3.txt');
  progressbar1.Position:=progressbar1.Position+10;

  label1.Caption:='Загрузка завершена';
end;

[KORN]

а может просто вокни прогресбар задай значение от 0 до 50 и когда доходит до определенного участка кода когда программа что то загружает то просто добавляй к примеру по 10 к позиции прогрессбара и еще можно добавить label в которую при загрузке чего либо будет выдаваться то что делается в данный момент... к примеру

procedure TForm1.FormCreate(Sender: TObject);
begin
  label1.Caption:='Загрузка в memo1';
  memo1.Lines.LoadFromFile('c:\1.txt');
  progressbar1.Position:=progressbar1.Position+10;

  label1.Caption:='Загрузка в memo2';
  memo1.Lines.LoadFromFile('c:\2.txt');
  progressbar1.Position:=progressbar1.Position+10;

  label1.Caption:='Загрузка в listbox1';
  listbox1.Items.LoadFromFile('c:\3.txt');
  progressbar1.Position:=progressbar1.Position+10;

  label1.Caption:='Загрузка завершена';
end;