現在日付をデフォルト表示し日付を引き渡せるように、次のようにコードを記述します。
procedure TfrmCalendar.FormCreate(Sender: TObject); begin MonthCalendar1.Date := Date; end; procedure TfrmCalendar.BtnOkClick(Sender: TObject); begin SelectDate := MonthCalendar1.Date; end;
