！！！！！ActiveForm中弹出的Form如何引用ActiveForm中的控件的属性？ ！！！！！

Question

csdn的delphi高手们，这次靠你们了，这个做不出，恐怕我又得换工作了！

Answer 1

恩！有意思！我也碰到过！GZ！GZ！

Answer 2

子FORM不可以控制主FORM的空件，想办法把主FORM的空件属性做成全局量可以吗？或者用查找HANDLE来试试。怎么高手都不看看啊？

Answer 3

不知道为什么在应用程序中可以，而一转化成ActiveForm就不行了，为什么！！！高手们请进！！

Answer 4

lsanht(叶开)：可以不换工作了：）
可以实现，如下：
在创建弹出的FORM时，传递参数SELF，即ACTIVEXFORM本身。FROM1 ：= TFORM1.CREATE（SELF）；
在FORM中可以使用SELF.OWNER访问ACTIVEXFORM，当然可以访问ACTIVEXFORM上的任意元素。举例如下：在FORM1上的BUTTON的CLICK事件中访问ACTIVEXFORM中的BUTTON1：
procedure TForm1.Button1Click(Sender: TObject);
begin
  
  ((self.Owner) as TActiveFormX).Button1.Caption := 'I am changed by other form'
end;