Стр. 154 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
154
4. Добавим в раздел объявления глобальных переменных переменные:
//координаты центра циферблата
x0,y0:integer;
//положение стрелок (угол)
ahr,amin,asec:integer;
//переменная для считывания в нее текущего времени с системных
//часов компьютера
t:TDateTime;
5. Создадим процедуру FormCreate для обработки события OnCreate
формы. Оформим ее следующим образом.
//процедура выполняется при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//заголовок формы
Form1.Caption:='Время';
//стиль формы
Form1.BorderStyle:=bsDialog;
//цвет формы
Form1.Color:=clBlack;
//высота формы
Form1.ClientHeight:=(r+30)*2;
//ширина формы
Form1.ClientWidth:=(r+30)*2;
//координаты центра циферблата
x0:=r+30;
y0:=r+30;
//считывание текущего времени с системных часов компьютера
t:=Now;
//рассчеты по положению стрелок
//90 градусов - 0 часов
//30 градусов - шаг часовой стрелки (360/12=30)
//6 градусов - шаг минутной и секундной стрелок
//наклон часовой стрелки в градусах
//функции HourOf, MinuteOf, SecondOf возвращают текущее время:
//часы, минуты и секунды соответственно
ahr:=90-HourOf(t)*30-(MinuteOf(t) div 12)*6;
//наклон минутной стрелки
amin:=90-MinuteOf(t)*6;
//наклон секундной стрелки
asec:=90-SecondOf(t)*6;
//установим интервал таймера - 1 секунда