Calendar auf heute stellen

[Alexander]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  MonthCalendar1.Date := Now;
  DateTimePicker1.DateTime := Now;
end;

//Edit: Endlich mal wieder schnellster