Komme nicht weiter mit Zeitvergleichen?

[hoika]

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