Часы-Будильник.Timer

[nik20]

помогите добавить будильник
и как сделать деления на циферблате?

[c0r3]

1)
в секции var

var
 alert:ttime;

в секции Timer1Timer

if CheckBox1.Checked then                  //будильник включен?
  if abs((Time-Alert))<EncodeTime(0,0,1,0)      // округление до секунды
     then ShowMessage('Boom');

в секции Button2Click

Alert:=EncodeTime(
  strtoint(trim(edit4.Text)),
  strtoint(trim(edit5.Text)),
  strtoint(trim(edit6.Text)),
  0);

2) деления ни циферблате
в секции Timer1Timer

form1.PaintBox1.canvas.Pen.Color:=clGreen;
form1.PaintBox1.canvas.Pen.width:=1;
for i:=1 to 60 do begin
  if i mod 5 = 0 then begin
    Form1.Canvas.Pen.Width:=1;
    x:=round(250+200*sin((pi/180)*i*6));
    y:=round(250-200*cos((pi/180)*i*6));
    form1.paintbox1.canvas.moveto(x,y);
    x:=round(250+250*sin((pi/180)*i*6));
    y:=round(250-250*cos((pi/180)*i*6));
    form1.PaintBox1.Canvas.LineTo(x,y);
  end;
end;

а вообще почитайте про функции EncodeTime и DecodeTime; пользуйтесь типами TDateTime TTime
и делайте отсупы в коде.

[SNUPY]

Советую сделать следующее изменение, для снижения мерцаний

procedure TForm1.FormCreate(Sender: TObject);
begin
rgn2:=CreateEllipticRgn(0,0,500,500);
rgn1:=CreaterectRgn(50,494,800,800);
brush.color:=clskyblue;
combinergn(rgn1,rgn1,rgn2,rgn_or);
setwindowrgn(handle,rgn1,truE);
Canvas.Pen.Width:=1;
DoubleBuffered := true;
end;