续刚才的问题，请meiqingsong(阿飛)和其他朋友帮忙看看

Question

假如有5个EDIT控件，一个日历控件
当双击任何一个EDIT控件时，日历控件出现在该EDIT控件的正下方，
===============这一步刚有朋友帮我解决了，
现在又有一新问题怎样把这个日历控件所选的值动态赋给被双击的那个EDIT呢？

Answer 1

(sender as Tedit).text:=datetostr(datetimepicker1.date)

Answer 2

procedure TForm1.MonthCalendar1Click(Sender: TObject);
begin
  if(ActiveControl is TEdit) then
     TEdit(ActiveControl).text := DatetimeToStr(MonthCalendar1.date);
end;

Answer 3

meiqingsong(阿飛)你好按你的方法试了一下，好象不对无论是哪个EDIT被双击了，选的日期值都是赋给了ActiveControl
并不是赋给被双击的那个EDIT啊？

Answer 4

meiqingsong(阿飛)你好,不好意思，你是对的，是我弄错了
结帖，加分