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

Аналог элктронных часов   Найти похожие ветки 

← →
aleksik ©   (2002-06-22 20:34) [0]

Пожалуйста посоветуйте как сделать программу изображающую аналог электр. часов в PaintBox связанную с часами Windows.

---

← →
Юрий Зотов ©   (2002-06-22 20:43) [1]

Бросаем на форму таймер, пишем его обработчик OnTimer:

procedure Form1.Timr1Timer(Sender: TObject);
var
H, M, S, MS: word;
begin
DecodeTime(Time, H, M, S, MS);
// После этого переменные H, M, S и MS содержат текущее время -
// часы, минуты, секунды и миллисекунды. Осталось их только
// где-то нарисовать. Где и как - это уже Ваша фантазия.
DisplayTime(H, M, S, MS); // Эту процедуру и надо написать
end;

---

← →
Александр ©   (2002-06-23 12:25) [2]

Могу посоветовать интересные компаненты: LMDClock и LMDLedLabel.
Первый - часы со стрелкой, второй - электронный индикатор (как на электрических часах).

---

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

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



Память: 0.45 MB
Время: 0.01 c