var
Form1: TForm1;
x,y:integer;
implementation
uses DateUtils;
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
Var R: TRect; Sec, tmp: Word;
begin
Form1.Canvas.Brush.Color:=clWhite;
Timer1.Interval:=100;
Form1.DoubleBuffered:=True;
Timer1.Enabled:=true;
Begin
With Form1.Canvas Do
Begin
DecodeDateTime(Now, tmp, tmp, tmp, tmp, tmp, Sec, tmp);
Form1.Caption:=IntToStr(Sec);
//Rectangle(150, 100, 750, 500);
Ellipse(250, 100, 650, 500);
MoveTo(450, 300);
LineTo(Round(450-200*Cos((Sec*5+90)/180*Pi)), Round(300-200*Sin((Sec*5+90)/180*Pi)));
Ellipse(443, 293, 457, 307);
End;
end;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Repaint;
Вот, я нашел, как лучше сделать.