Hallo,
obwohl der Kalender beim start auf das aktuelle Datum gestellt wird, klappt der Vergleich nicht. Klick ich aber auf das aktuelle Datum (obwohl es da schon richtig steht), klappt es, das beep kommt. Kann mir jemand einen Tipp geben, warum es erst nach dem Klick auf den Kalender geht?
Code:
procedure TForm1.FormCreate(Sender: TObject);
begin
MonthCalendar1.Date := Date;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption := DateToStr(MonthCalendar1.Date);
if MonthCalendar1.Date = Date then
begin
beep;
end;
end;
Gruß sigi