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

G

gaolang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #1

假设在一ActiveForm弹出一Form，我怎样才能在Form中引用ActiveForm中的数据，
例如我在ActiveForm中定义的ClientDataset控件和Edit1，在Form1中也将用到，
我连怎样在Form1所在的单元引用ActiveForm都不知道，因为ActiveForm与原来的
普通Form不一样。请各位高手不吝指教，谢谢！

 

S

slicker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-12

• #2

我是通过参数将需要处理的数据传递给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;
--------------------------------------

 

G

gaolang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-13

• #3

谢谢slicker,但是我在Form中需要对ActiveForm中的控件属性进行控制，这是
避免不了引用ActiveForm单元的。

 

T

Think

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-14

• #4

在Form1中定义一些公有成员变量，记录你要在ActiveForm中设定的值，
在操作Form1时设定好，关闭Form1后，在ActiveForm中利用Form1的变量
为ActiveForm中的控件属性赋值。

 

R

rehuo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #5

关注

 

S

slicker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-15

• #6

将控件的属性作为变量传递不就行了

 

M

minikiller

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-05-29

• #7

可以这么做，生成Form1时，调用tform1.create(self)
然后在Form1里面引用ActiveForm单元，把parent 强制转换为ActiveForm 类型，
你就可以用到ActiveForm里面的控件了。

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-05

• #8

请继续或结束

 

Z

zyy04

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-13

• #9

多人接受答案了。