TMonthCalendar und Klick abfragen

[Äfan]

Hi,

Mach doch ganz einfach:

Delphi-Quellcode:

private
  Check1: boolean;
  Check2: boolean;
...

procedure TForm1.FormCreate(Sender: TObject);
begin
  Check1 := False;
  Check2 := False;
end;

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Check1 := True;
  If Check1 and Check2 = True then
   Button1.Enabled := True;
end;

procedure TForm1.MonthCalendar2Click(Sender: TObject);
begin
  Check2 := True;
  If Check1 and Check2 = True then
   Button1.Enabled := True;
end;