Аналог элктронных часов

← →
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;

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

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