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

D

dreamese

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #1

activexform怎么让别的单元访问呢？

普通的project，每个from都在它的单元里有定义的
Var
formname:TformName;
所以只要别的单元use了这个单元就能访问这个单元了

但是activexform是没有定义form名的，偶别的单元要用怎么办

 

D

dreamese

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #2

up

 

B

bubble

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #3

参考<指南>给ActiveForm加属性。
投机的办法这里有一个
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1008538

 

S

szf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #4

Var
formname:TformName;
只是声明了它的一个指针，你在哪里声明都一样的。

同样，你可以把ActiveForm的类型库单元_TLB.pas加入，也声明这样一个变量就行了。

 

D

dreamese

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #5

bubble,能详细讲讲吗
szf能不能给个例子给小弟观摩观摩

 

S

szf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #6

在"别的单元"中,uses ActiveForm_TLB.pas(文件名依实际情况而定，如果没有这个文件话，
就"Import ActiveX Control"----不要告诉我你不会这个。
在里面有 TXXXXXXX = class(TOleControl)，这个东西就是跟TFormName一样的意思，
然后就随便声明一个变量名 XX: TXXXXXXX
使用
XX := TXXXXXX.Create(Self);
XX.Parent := aControl
//因为TActiveForm导出后从TWinControl继承的，所以要粘在其它的Control才能看得见

其它自己试试吧。

 

D

dreamese

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-21

• #7

偶的解决方法是
var
actfrmMain:TactfrmMain;
在tactfrmMain.oncreate(sender object);
中做了
actfrmmain:=sender as TactfrmMain;
效果不错

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-21

• #8

学习，把变量放在其它单元不失为一个法子。。。。。

 

D

dreamese

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #9

多人接受答案了。