Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.04;
Скачать: 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 вся ветка

Текущий архив: 2002.07.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.018 c
3-9766
Trixter
2002-06-13 10:38
2002.07.04
Капризный Halcyon


1-9850
Александр
2002-06-20 12:13
2002.07.04
treeView


14-10008
Tot
2002-06-04 13:16
2002.07.04
D5 -> D6, D6 -> D5 ???


3-9725
fofa
2002-06-10 20:05
2002.07.04
TQuery ??? Help pls....


3-9736
Alex-kosmonavt
2002-06-11 10:06
2002.07.04
Как записать картинки в Blob поля базы данных?