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);
类似这样写就应该可以了。
