请教有关把MonthCalendar中的日期通过选择自动同步到EDIT.TEXT或者COMBOBOX中

Question

请教各位了谢谢

Answer 1

在MonthCalendar的OnClick事件中编写代码，如：
//写在编辑框中：
edit1.text:=formatdatetime('YYYY"年"mm"月"dd"日"',monthcalendar1.Date);

Answer 2

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
Edit1.Text := DateToStr(MonthCalendar1.Date);
end;

Answer 3

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Edit1.Text := DateToStr(MonthCalendar1.Date);
  //对于ComboBox控件，要注意Style属性的设置
end;

Answer 4

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  Edit1.Text := DateToStr(MonthCalendar1.Date);
  //对于ComboBox控件，要注意Style属性的设置
end;不要再onchange里写事件