Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.037 c