[true]

Вот я указал в DateTimeOicker'e время и в указаное время должно вылезти showmessage, как это сделать? пробывал так но не получается..

procedure TForm1.Button1Click(Sender: TObject);
begin

if DateTimePicker1.Time=Time
then
begin
Timer1.Enabled:=true;
end;

[EvilRussian]

То есть, например,в 13.00 27.12.2010 вылезает сообщение, так что ли?

[v1s2222]

Можно в таймере (тогда приложение толжно быть всегда активно), а в таймере сверять дату и время с нужными тебе. Есть еще два способа: записать программу в автозагрузку, и при загрузке, если дата не верна, выходить из программы, если же верна - выдавать сообщение... Или же писать свою службу, но на делфи это довольно сложновато...
Пример проверки даты вот:

Код:

1 2 3 4 5 6 7 8

var   Data: TDate; begin   Data := Now;   if(Date = Date) then     ShowMessage('Сегодня ' + DateToStr(Now) + ', поэтому вывелось это сообщение.')   else     Close;

[true]

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

То есть, например,в 13.00 27.12.2010 вылезает сообщение, так что ли?

ну вот я ввожу время нажимаю на кнопку и в заданое мной время должен сработать таймер и все..

v1s2222, мне вот только время нужно, чтобы я установил время нажал кнопку и в то время которое установил вылезло бы окошко с сообщением

Чтото типа будильника

[v1s2222]

Ну в чем проблема тогда?
Кидаешь таймер на форму, интервал даешь какой хочешь (можно оставить 1 секунду) и едит, в который будешь вводить время (с секундами).
Ну а в таймере пишешь:

Код:

1 2	IF(TimeToStr(Now) = Edit1.Text)   then ShowMessage('Mesage');

В едит должен вводить нужное тебе время, например: "10:10:10" - сообщение будет в десять часов, 10 минут, 10 секунд.

[EvilRussian]

Тогда программа должна всегда висеть в трее.

[true]

Спасибо всем.. про будильник меня вдохновило.. я нашел сорс и это событие:

Код:

1 2 3 4 5 6 7

procedure TForm1.Timer2Timer(Sender: TObject); var ST:SystemTime; begin getlocaltime(ST); if (ST.Whour=StrToInt(Edit1.Text))and (ST.WMinute=StrToInt(Edit2.Text)) then beep; end;