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

Информатика. Программирование в Delphi
257
procedure TForm1.BitBtn6Click(Sender: TObject);
begin
dec(ASec);
if ASec<0 then
ASec:=59;
if ASec<10 then
Label4.Caption:='0'+IntToStr(ASec)
else
Label4.Caption:=IntToStr(ASec)
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
Hour,Min,Sec:word;
begin
Hour:=HourOf(Now);
Min:=MinuteOf(Now);
Sec:=SecondOf(Now);
if Timer1.Tag=0 then
Label1.Caption:=FormatDateTime('hh:mm:ss',now)
else
if (Hour=AHour) and (Min=AMin) and (Sec=ASec) then
begin
Timer1.Tag:=0;
Form1.Show;
PlaySound('c:\windows\media\ringin.wav',0,0);
ShowMessage(Edit1.Text);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Tag:=1;
Form1.Hide;
end;
end.