| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Аналог элктронных часов [D6, WinME]

aleksik ©   (2002-06-22 20:34:00) 

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

---

Александр   (2002-06-23 12:25:00) [1]

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

---

Юрий Зотов   (2002-06-22 20:43:00) [2]

Бросаем на форму таймер, пишем его обработчик 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;

---

Наверх