|
Вопрос # 91/ вопрос решён / |
|
Уважаемые эксперты!
Как в форму вставить таймер?
И по окончании времени заблокировать форму и выдать сообщение?
Спасибо.
 |
Вопрос задал: Ilia Ermakov (статус: 1-ый класс)
Вопрос отправлен: 28 июля 2006, 18:16
Состояние вопроса: решён, ответов: 2.
|
Ответ #1. Отвечает эксперт: Помфюк Владимир Степанович
Здравствуйте, Ilia Ermakov!
Поместите на форму компонент TTimer и в событии OnTimer пишите все действия, которые должны произойти
Ответ #2. Отвечает эксперт: Вадим К
Здравствуйте, Ilia Ermakov!
Выдать сообщение - ShowMessage('Сообщение');
Заблокировать форму - Form1.Enable:=false;
Хотя, если отображается сообщение, то форма будет заблокирована. А по закрытию сообщения закрываем форму.
Также неплохо отключить таймер в обработчике таймера, а то может выскакивать несколько сообщений.
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 28 июля 2006, 19:53
Оценка за ответ: 5
|
Мини-форум вопроса
Всего сообщений: 3; последнее сообщение — 28 июля 2006, 23:58; участников в обсуждении: 2.
|
Ilia Ermakov (статус: 1-ый класс), 28 июля 2006, 20:20 [#1]:
А как теперь этот таймер привязать к ProgressBar?
Подскажите, плиз..
|
|
Geron (статус: 1-ый класс), 28 июля 2006, 23:52 [#2]:
Здравствуйте, Ilia Ermakov!
Ставим на форму компанент TTimer из System.
В Interval пишем нужное время, в Ontimer пишем нужное действие.
Сообщение лучше писать на отдельное форме(допуст.
form2).
заблокировать форму и выдать сообщение на отдельноу форме - Form2.ShowModal;
Есть другой способ:
какие-то действия...
sleep(Нужное время);
Form2.ShowModal;
какие-то действия...
|
|
Geron (статус: 1-ый класс), 28 июля 2006, 23:58 [#3]:
Здравствуйте, Ilia Ermakov!
Ставим на форму компанент TTimer из System.
В Interval пишем нужное время, в Ontimer пишем нужное действие.
какие-то действия...
ProgressBar1.Position:=ProgressBar1.Position+некоторое значение не привышающее ProgressBar1.max.
какие-то действия...
|
31 января 2011, 19:24: Статус вопроса изменён на решённый (изменил модератор Ерёмин А.А.): Автоматическая обработка (2 и более ответов с оценкой 5)
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|