Создание цифровых часов в Delphi 7.
Для создания часов понадобятся следующие компоненты:
Label вкладка Standard
Timer вкладка System
Кидаем на форму Labe иl Timer.
Кликаем по таймеру два раза и там пишем:
label1.caption:=timetostr(time);
В итоге код в таймере должен получиться такой:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
label1.caption:=timetostr(time);
end;
Кликаем по форме один раз и в функции BorderStyle ставим bsDialog
Кликаем по лабел один раз и в функции Font выбираем шрифт и размер шрифта
Часы готовы.
