ActiveForm中弹出的Form如何引用ActiveForm中的数据?(100分)

  • 主题发起人 主题发起人 gaolang
  • 开始时间 开始时间
G

gaolang

Unregistered / Unconfirmed
GUEST, unregistred user!
假设在一ActiveForm弹出一Form,我怎样才能在Form中引用ActiveForm中的数据,
例如我在ActiveForm中定义的ClientDataset控件和Edit1,在Form1中也将用到,
我连怎样在Form1所在的单元引用ActiveForm都不知道,因为ActiveForm与原来的
普通Form不一样。请各位高手不吝指教,谢谢!
 
我是通过参数将需要处理的数据传递给Form1,
此方法不需要在form1中uses ActiveForm,只需要在ActiveForm中uses form1,
在form1中建立类似下面的过程或函数

--------------------------------------
unit unit1

type
tform1 = class(tform)
...
end;

procedure MyProc(varList...);

implementation

procedure MyProc(varList...);
begin
with tform1.create(nil) do
try
// 处理参数
finally
free
end
end;
--------------------------------------
 
谢谢slicker,但是我在Form中需要对ActiveForm中的控件属性进行控制,这是
避免不了引用ActiveForm单元的。
 
在Form1中定义一些公有成员变量,记录你要在ActiveForm中设定的值,
在操作Form1时设定好,关闭Form1后,在ActiveForm中利用Form1的变量
为ActiveForm中的控件属性赋值。
 
将控件的属性作为变量传递不就行了
 
可以这么做,生成Form1时,调用tform1.create(self)
然后在Form1里面引用ActiveForm单元,把parent 强制转换为ActiveForm 类型,
你就可以用到ActiveForm里面的控件了。
 
请继续或结束
 
多人接受答案了。
 
后退
顶部