Как сделать вывод панели с ProgressBar.

← →
Filat (2002-09-04 11:39) [0]

Привет ALL!
Идея какая, когда юзер нажимает на кнопке "Рабочий цикл" сначала обрабатываются некоторые процыдуры и функции, и когда отработало всё надо чтобы появилась формочка с ProgressBar который будет показывать оставшееся время до цикла автоматической обрабоки.
Можно сделать с помощью новой формы, но это увеличивает размер программы.
Когда то в форуме видел, что можно сделать по другому, толи через сообщения то ли ещё через что то. Книги перерыл, нет ничего такого. Кто знает как это сделать без формы?

← →
NickBat (2002-09-04 11:47) [1]

>Можно сделать с помощью новой формы, но это увеличивает размер программы.

Добавление пустой формы к проекту увеличивает размер экзешника аж(!) на 5(пять) килобайт. Это-конечно очень много. :)))

← →
Filat (2002-09-04 12:11) [2]

Не, идея сделать красивше:)))
И попутно появился похожий вопрос, Как сделать типа ShowMessage ..., чтобы он скажем повисел 2 сек. сам закрылся а прога продолжила своё выполнение?.

← →
Виктор Щербаков (2002-09-04 12:13) [3]

> Как сделать типа ShowMessage ..., чтобы он скажем повисел
> 2 сек. сам закрылся а прога продолжила своё выполнение?

Обычной формой. Show, Hide и все дела.

← →
Anatoly Podgoretsky (2002-09-04 12:19) [4]

Таймер на 2 сек

← →
Filat (2002-09-04 12:33) [5]

> Обычной формой. Show, Hide и все дела.

А можно код, если не трудно.

И мабуть последнее, приминительно с форме сообщения, чтобы она при нажатии Esc она закрылась, но только она. Это надо поставить обработку на нажатие кнопки Esc. Так?

← →
Виктор Щербаков (2002-09-04 12:38) [6]

> А можно код, если не трудно.

А самому подумать?
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled := true;
Form2.Show;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form2.Hide;
Timer1.Enabled := false;
end

> И мабуть последнее, приминительно с форме сообщения, чтобы
> она при нажатии Esc она закрылась, но только она. Это надо
> поставить обработку на нажатие кнопки Esc. Так?

См. события формы OnKeyDown, OnKeyUp

Как сделать вывод панели с ProgressBar. Найти похожие ветки