我在mdichild的窗口中定下如下事件
produce test(sender :tobject);
begin
edit1.text:='jjjj';
end;
在mdichild窗体的onActivate事件中写下
mainMDI.menuname.onclick:=test;
在mdichild的close事件中
mainMDI.menuname.onclick:=nil;
produce test(sender :tobject);
begin
edit1.text:='jjjj';
end;
在mdichild窗体的onActivate事件中写下
mainMDI.menuname.onclick:=test;
在mdichild的close事件中
mainMDI.menuname.onclick:=nil;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货