| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Вопрос по времени
Ио © (2006-02-20 10:51:00)Подскажите, как сотворить так, чтобы в строго определённое время (например в 6 00) нажималась кнопка на форме (допустим BUTTON1). Что надо добавить на форму и что писать в процедуре...
PS: только не посылайте в справку, там я ничего не нашёл...
Алхимик (2006-02-20 14:57:00) [1]
> [8] Tonich © (20.02.06 14:21)
Кто спорит? Этож очевидно.
Tonich (2006-02-20 14:21:00) [2]
> if (Time > TimeX) and (not FlagClicked) then begin
ну если быть уж точным то это условие может сработать как в 6 так и в 7 все зависит от FlagClicked
Алхимик (2006-02-20 13:41:00) [3]
> [6] Плохиш © (20.02.06 13:34)
Ага, при перехоте на следующие сутки.
Оставлю автору в качестве домашнего задания :)
Плохиш (2006-02-20 13:34:00) [4]
> Алхимик © (20.02.06 13:17) [5]
Сброс FlagClicked дописать забыл ;-)
Алхимик (2006-02-20 13:17:00) [5]TimeX - время Х
FlagClicked - логическая переменаая, указывающая что кно
Timer1.Interval := <частота проверки в мсек.>;
Timer1.Enable := true;
Обработка события OnTimer:
begin
// если время нажимания кнопки пришло и кнопка ещё не нажималась
if (Time > TimeX) and (not FlagClicked) then begin
<нажимаем кнопку>
FlagClicked := true; // устанавливаем признак "кнопка нажата"
end;
end;
HF-Trade (2006-02-20 12:36:00) [6]
> Ио
Edit1.Text:=FormatDateTime('hh'+':'+'mm', Time);
Вставь в таймер...
мде...
Плохиш (2006-02-20 11:28:00) [7]У TButton есть метод Click, то же описан в справке.
Ио (2006-02-20 11:01:00) [8]TTimer видел... Только как сделать вышенаписанно я не понял...
Плохиш (2006-02-20 10:58:00) [9]
> только не посылайте в справку, там я ничего не нашёл...
И даже про TTimer тоже ничего?
| |
