Помогите cделать будильник в Delphi

[Ivanich]

Здравствуйте всем.Люди помогите зделать будильник да это даже не будильник а просто чтоб выдавал сообщение. В Edit1 указать время а в
Edit2 текст выдаваемого сообщения.Заранее большое СПАСИБО

[Alar]

http://www.programmersclub.ru/labtimer

Будильник

Представлено два вида будильников.
Скачать (104 кб)

[Ivanich]

Вообщем у меня что то начало получаться но не совсем так. Я кнопку Установить убрал. В в компоненте TTimer прописал следующее

procedure TClockTab.Timer1Timer(Sender: TObject);
begin
Panel1.Caption:=TimeToStr(Time);
Timer1.Interval:=1;
if Panel1.Caption=(Edit1.Text) then ShowMessage(Edit2.Text);
end;
end.

но он вместо одного сообщения выводит из сразу несколько десятков как это предотвратить подскажите ?

[Alter]

Сообщение от Ivanich

Вообщем у меня что то начало получаться но не совсем так. Я кнопку Установить убрал. В в компоненте TTimer прописал следующее

procedure TClockTab.Timer1Timer(Sender: TObject);
begin
Panel1.Caption:=TimeToStr(Time);
Timer1.Interval:=1;
if Panel1.Caption=(Edit1.Text) then ShowMessage(Edit2.Text);
end;
end.

но он вместо одного сообщения выводит из сразу несколько десятков как это предотвратить подскажите ?

надо вот ето!

..................
if Panel1.Caption=(Edit1.Text) then
begin
 ShowMessage(Edit2.Text);
 Timer1.Enabled := False;
end;
..................

всё понятно ?

[Ivanich]

Пробовал все равно лезут куча сообщений и на Panel1 время останавливается

[vitalik007]

Вот исходник

[Alter]

Сообщение от Ivanich

Пробовал все равно лезут куча сообщений и на Panel1 время останавливается

Правильно, время же обновляется в одном таймере. Нужен второй таймер для

Panel1.Caption:=TimeToStr(Time);

И интервал при старте формы(для обновления времяни на панели) выстави в 1000, это равно секунде. остальное просто.