Form控制Frame内组件

Question

如题:例如,利用Form2的按钮,将Form2上编辑框中的内容,传送到Frame(已显示,其Parent是Form1)中的Label1.Caption中即可...
回答正确,即给分...

Answer 1

sendmessage(label1.handle,wm_settext,1,integer(pchar(form2.memo1.text));

Answer 2

可以在From1中公布一个方法，或者用2楼的发消息，不过要获得Label1的句柄，貌似也要访问From1，还是公布方法吧。

Answer 3

ls的，label是沒有handel的；
另外，lz給的條件不嚴密；
確認一下：您的form2或者frame是不是包在dll中？

Answer 4

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

Answer 5

谢谢以上各位的帮助,我想可能是我说的不够明白:
1.在Form1上的按钮可以创建一个Frame,叫Frame1,
2.Frame1上放置一个Label,还有一个按钮可以调出Form2,在Form2上则有一个Edit和Button,
3.点击button,可以把Edit的内容传送给Label,并且关闭Form2...
希望能得到解答...(P.S:所有对问题有帮助的答案,我都会给分的...)
谢谢各位...