|
|
 | |  |
|
Delphi уроки: Учимся ставить ограничения
Delphi уроки. Временное ограничение на работу программы.
В этом уроке я покажу вам 2 способа поставить временное ограничение на работу программы.
Способ №1 Более интересный.
Первое что нам нужно сделать это кинуть на форму 2 компонента label с закладки Standart и один компонент timer с закладки system.
Объявляем переменные: для реализации данного способа нам понадобиться две глобальные переменные:
1) Opentime
2) Closetime тип у них будет tDateTime
В общем если кто не понял то после ключевого слова var пишем вот такую строчку:
closetime, opentime: tdatetime;
Идем дальше, теперь создаем обработчик событий на форме OnCreate - для этого просто кликаем на форме 2 раза
между begin end пишем следующий код:
opentime:= time; //Функция time выдает нам время в данный момент
closetime:= opentime+strtotime('00:00:30');
//Здесь мы добавляем к времени старта нужное время.
//В данном случае - в формате чч:мм:сс
label1.Caption:=timetostr(opentime);
С формой разобрались, переходим к таймеру также создаем обработчик событий на нем OnTime
Между begin end; пишем:
if time > closetime then //Если текущее время > времени окончания //программы то
begin
showmessage('Время работы программы истекло ! '); //Показываем //сообщение
close; //закрываем программу
end;
Label2.Caption:=timetostr(opentime-closetime); // иначе показываем время //до завершения программы
Вот в принципе и все, осталось только выставить true в свойстве Enabled у таймера.
Способ №2 Более простой.
Кидаем на форму компонент timer с закладки system. Свойство Enabled выставляем на true. Свойство Interval ставим равное 30000 (через 30 сек программа закроется).
Создаем обработчик событий Ontime в нем прописываем следующий код
showmessage('Время работы программы истекло ! ');
close;
Вот и все!
P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
Форма для подписки расположена с права и с лева.
До встречи DelphiExpert.ru !!!
|
| Категория: DELPHI | Добавил: SeM (09.04.2011)
|
| Просмотров: 614
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] | |
 | |  |
|
 |
| Коменнтарии
 | |
Извиняюсь, заработал. Спасибо за урок 
Давайте помогу разобраться ? вы хотите что бы когда выбиралась станция сразу начинала проигрывать? скиньте исходник или как лучше связаться с вами?
Нифига не робит...
Кто знает как сделать чтобы на жесткий жертвы сохранял..
ISQ 606017777
|
 |
|
| Отзывы Фото
| |
6 микр. Красивое место....
Старый музей но щас его перенесли...
Фотография под горы 
Красивое фото!!!
|
|
|
