Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.12;
Скачать: CL | DM;

Вниз

Вопрос по времени   Найти похожие ветки 

 
Ио   (2006-02-20 10:51) [0]

Подскажите, как сотворить так, чтобы в строго определённое время (например в 6 00) нажималась кнопка на форме (допустим BUTTON1). Что надо добавить на форму и что писать в процедуре...
PS: только не посылайте в справку, там я ничего не нашёл...


 
Плохиш ©   (2006-02-20 10:58) [1]


> только не посылайте в справку, там я ничего не нашёл...

И даже про TTimer тоже ничего?


 
Ио   (2006-02-20 11:01) [2]

TTimer видел... Только как сделать вышенаписанно я не понял...


 
Плохиш ©   (2006-02-20 11:28) [3]

У TButton есть метод Click, то же описан в справке.


 
HF-Trade ©   (2006-02-20 12:36) [4]


> Ио


Edit1.Text:=FormatDateTime("hh"+":"+"mm", Time);

Вставь в таймер...
мде...


 
Алхимик ©   (2006-02-20 13:17) [5]

TimeX - время Х
FlagClicked - логическая переменаая, указывающая что кно

Timer1.Interval := <частота проверки в мсек.>;
Timer1.Enable := true;

Обработка события OnTimer:
begin
 // если время нажимания кнопки пришло и кнопка ещё не нажималась
 if (Time > TimeX) and (not FlagClicked) then begin
    <нажимаем кнопку>
    FlagClicked := true; // устанавливаем признак "кнопка нажата"
 end;
end;


 
Плохиш ©   (2006-02-20 13:34) [6]


> Алхимик ©   (20.02.06 13:17) [5]

Сброс FlagClicked дописать забыл ;-)


 
Алхимик ©   (2006-02-20 13:41) [7]


> [6] Плохиш ©   (20.02.06 13:34)

Ага, при перехоте на следующие сутки.
Оставлю автору в качестве домашнего задания :)


 
Tonich ©   (2006-02-20 14:21) [8]


> if (Time > TimeX) and (not FlagClicked) then begin


ну если быть уж точным то это условие может сработать как в 6 так и в 7 все зависит от  FlagClicked


 
Алхимик ©   (2006-02-20 14:57) [9]


> [8] Tonich ©   (20.02.06 14:21)

Кто спорит? Этож очевидно.



Страницы: 1 вся ветка

Текущий архив: 2006.03.12;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.027 c
1-1139233538
parovoZZ
2006-02-06 16:45
2006.03.12
Файл во временную папку


4-1134982464
Chaser
2005-12-19 11:54
2006.03.12
При закрытии программы - минимизация в трей


15-1140292334
ArtemESC
2006-02-18 22:52
2006.03.12
Hello world в ассме


2-1140957667
Федун
2006-02-26 15:41
2006.03.12
Вопрос по TDBLookupComboBox


1-1139222166
DelphiLexx
2006-02-06 13:36
2006.03.12
Профайлер для Delphi