求助:关于MonthCalendar的应用

Question

我想做这么个东西,frmDatePich专门用来给dbEdit输入标准格式的日期,我希望在dbEdit后对应的btn按下后,弹出frmDatePick,选取相应的日期后,按确定返回选择的日期.
由于我有很多的edEdit,所以不能用frmDatePick里直接赋值的方式.我的想法是这样的:
做一个函数
Function GetSelectDate:string;
begin
   //显示frmDatePick
   //获取MonthCalendar.date
   //赋值给result
end;这样的函数该怎么写呢?如何让frmDatepick在函数的生命期里执行,并返回日期?

Answer 1

Edit1.Text:=DateToStr(MonthCalendar1.Date);

Answer 2

to hongqi162:
谢谢先,不过这个我知道啊,但得写在frmDatePick的btnOK的事件中,如果我只有一个dbEdit的话,问题旧好办多了,我在btnOK里直接赋值旧行了.但问题是我有很多的editForm,并且每个上面都有一个或几个需要输入日期的Edit.

Answer 3

在btn事件里直接写了
with TfrmDatePick.Create(nil) do
   try
     if ShowModal = IDOK then
      dbeDate.Text := DateToStr(MonthCalendar1.date);
   finally
     Free;
  end;可是系统报错,说组件MonthCalendar already exit!

Answer 4

麻烦啊,如果实在不行我只有在frmDatePick里放一个变量int:integer 了~~用case来决定给哪个~edit赋值~~:(((

Answer 5

用datetostr向数据库写
用strtodate从数据库读都可以啊