受注明細画面のカレンダーボタンをクリックしたときにカレンダー画面を呼び出すようにします。
frmMeisaiのOnClickイベントで次のように記述します。
procedure TfrmMeisai.btnNoukiClick(Sender: TObject); begin frmCalendar := TfrmCalendar.Create(Self); if frmCalendar.ShowModal = mrOK then begin EditNouki.Text := FormatDateTime('yyyy/mm/dd', frmCalendar.SelectDate); end; frmCalendar.Release; end;
