關于動態產生tmonthcalendar使用的問題﹖
我要求在某一文本框接到焦點后創建一tmonthcalendar﹐
然后在MonthCalendar1DblClick中將值偉遞給文本框﹐并關閉釋放此tmonthcalendar
該怎么寫動態產生控件的事件﹖﹖﹖
procedure TForm1.Edit2Enter(Sender: TObject);
var
fmonth:tmonthcalendar;
begin
FMonth := TMonthCalendar.Create(Self);
fmonth.AutoSize:= True;
FMonth.Date := Date;
FMonth.Parent := Form1;
end;