關于動態產生tmonthcalendar使用的問題﹖

linmengkxy 2003-10-18 10:25:14
我要求在某一文本框接到焦點后創建一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;
...全文
27 4 打赏 收藏 转发到动态 举报
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
linmengkxy 2003-10-20
  • 打赏
  • 举报
回复
ths
wujunwei 2003-10-19
  • 打赏
  • 举报
回复
自己写个procedure Fmonthdbclick(sender:Tobject);
begin
edit1.text:=datetostr(Monthcanlendar.date);
monthcanldar.free
end;

然后procedure TForm1.Edit2Enter(Sender: TObject);
var
fmonth:tmonthcalendar;
begin

FMonth := TMonthCalendar.Create(Self);
fmonth.AutoSize:= True;
FMonth.Date := Date;
FMonth.Parent := Form1;
Fmonth.DblClick:=Fmonthdbclick;
end;
我没有测试过,你看看行否?!
linmengkxy 2003-10-19
  • 打赏
  • 举报
回复
我是要 '然后在MonthCalendar1DblClick中將值偉遞給文本框﹐并關閉釋放此tmonthcalendar
該怎么寫動態產生控件的事件﹖﹖﹖'
﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹖﹑﹑
dxwin 2003-10-18
  • 打赏
  • 举报
回复
FMonth := TMonthCalendar.Create(Self);有问题?

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧