Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как сделать вывод панели с ProgressBar. [D5, D6, Win95/98, Win2k]

Filat © (2002-09-04 11:39:00)
Привет ALL!
Идея какая, когда юзер нажимает на кнопке "Рабочий цикл" сначала обрабатываются некоторые процыдуры и функции, и когда отработало всё надо чтобы появилась формочка с ProgressBar который будет показывать оставшееся время до цикла автоматической обрабоки.
Можно сделать с помощью новой формы, но это увеличивает размер программы.
Когда то в форуме видел, что можно сделать по другому, толи через сообщения то ли ещё через что то. Книги перерыл, нет ничего такого. Кто знает как это сделать без формы?

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

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

А самому подумать?
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

Filat (2002-09-04 12:33:00) [2]
> Обычной формой. Show, Hide и все дела.

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

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

Anatoly Podgoretsky (2002-09-04 12:19:00) [3]
Таймер на 2 сек

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

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

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

Filat (2002-09-04 12:11:00) [5]
Не, идея сделать красивше:)))
И попутно появился похожий вопрос, Как сделать типа ShowMessage ..., чтобы он скажем повисел 2 сек. сам закрылся а прога продолжила своё выполнение?.

NickBat (2002-09-04 11:47:00) [6]
>Можно сделать с помощью новой формы, но это увеличивает размер программы.

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »