Часы На Форме Приложения

[Sascha]

Здравствуйте, сегодня мы рассмотрим небольшой пример, как на форме нашего приложения сделать часы. В результате мы должны получить примерно следующее:



Для этого создайте новое приложение и разместите на нем label и Timer

В таблице ниже приведены основные свойства формы и метки, которые нужно изменить.

Свойства Form1.

Caption - Часы
Heigth - 94
Width - 240

Свойства label1.
Font.color - clGreen
Font.name - Swis721 BlkEx BT
Font.Size - 20
Caption - (Оставьте поле пустым)

Теперь нужно заставить наши часики ходить. Для этого в обработчик таймера нужно написать простейший код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Caption:=TimeToStr(now);
end;

Пример очень простой, но возможно когда-нибудь пригодится.