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

Информатика. Программирование в Delphi
253
//если форма на экране
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;
//стандартный звук Windows
PlaySound('c:\windows\media\ringin.wav',0,0);
//вывод сообщения на экран
ShowMessage(Edit1.Text);
end;
end;
15. В инспекторе объектов для кнопки Button1 создайте процедуру But-
ton1Click – обработчик события OnClick.
//выполняется при щелчке по кнопке OK
procedure TForm1.Button1Click(Sender: TObject);
begin
//форма скрыта
Timer1.Tag:=1;
//скрыть форму
Form1.Hide;
end;