Form控制Frame内组件
如题:例如,利用Form2的按钮,将Form2上编辑框中的内容,传送到Frame(已显示,其Parent是Form1)中的Label1.Caption中即可...
回答正确,即给分...
[解决办法]
sendmessage(label1.handle,wm_settext,1,integer(pchar(form2.memo1.text));
[解决办法]
可以在From1中公布一个方法,或者用2楼的发消息,不过要获得Label1的句柄,貌似也要访问From1,还是公布方法吧。
[解决办法]
ls的,label是有handel的;
另外,lz的件不密;
一下:您的form2或者frame是不是包在dll中?
[解决办法]
声明: TSetCaptionEvent=procedure(acaption: string)of object;
在form2中定义SetCaptionEvent: TSetCaptionEvent;
在form1中实现方法
procedure SetCapiton(acaption: string);
begin
label1.caption := acaption;
end;
创建form2的时候给form2的SetCaptionEvent赋值,form2.SetCaptionEvent := SetCapiton;
然后在form2里按钮时间里调用一下这个函数SetCaptionEvent(form2.edit1.text);
类似这样写就应该可以了。