Hallo,
noch mal zu deinem Code.
Delphi-Quellcode:
Label2.Caption:=TimeToStr(Now);
Label3.Caption:=TimeToStr(DateTimePicker2.Time);
if Now=DateTimePicker2.Time then showmessage('ja');
In Zeile 3 ist Now schon wieder etwas weiter
als in Zeile 1.
Wenn es wirklich nur ein Wecker sein soll,
der genau einmal weckt, vergleiche mit >=
Delphi-Quellcode:
Label1.Caption:= TimeToStr('15:00'); // wir wollen 15:00 wecken
procedure Timer1OnTimer
begin
if Now>=StrToTime(Label1.Caption) then
begin
ShowMessage('klingellllll');
Timer1.Enabled:= False;
end;
end;
Heiko