Форум: "Начинающим";
Текущий архив: 2006.03.12;
Скачать: [xml.tar.bz2];
Вниз
Вопрос по времени Найти похожие ветки
← →
Ио (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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.015 c
