我觉得这是做ACTIVEXFORM经常碰到的问题。希望各位高手能给我们这些初学者指引一条路 (200分)

人

人生如云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #1

我觉得这是做ACTIVEXFORM经常碰到的问题，希望各位高手能给我们这些初学者指引一条路
如何在Activexform弹出的Form窗体上调用Activexform里的控件？
将form窗体上控件dbgrid里的字段通过oncellclick事件写到Activexform的edit控件上。

 

H

hstod

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-25

• #2

我也很想知道 定学习

 

L

lishubing_2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-26

• #3

为什么要这样做

 

人

人生如云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-26

• #4

我要把查询到的信息返回给Activexform的edit

 

S

surpass

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-26

• #5

在Activexform定义全局变量，显示时弹出的form时，在dbgrid双击事件里把字段的值放到全局变量，关闭后再把全局变量的值给Edit不就行啦！

 

人

人生如云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-26

• #6

to surpass
能否告诉我具体怎么作？

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-26

• #7

创建form的时候将activeform作为owner参数，这样在form中访问activeform了吗？
form1:=tform1.create(activeform1);
调用：
tform(form1.Owner).onclick(sender);
不一定对，你试试吧

 

L

lgxyy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-27

• #8

同意

 

M

mstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-27

• #9

在弹出的Form窗体中定义一个 PUBLIC事件，例如 ownerDO : Procedure
然后在 activeform 中写一个过程（该过程操作自己的控件），并将此 过程 直接传给弹出的Form窗体（当然在 SHOW 之前）。

 

P

pihome

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-09-30

• #10

我一般是这样处理的
弹出的窗体中
TForm1 = class(TForm)
...
ActiveXForm: TMyActiveXForm;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ActiveXForm.DoSomething;
end;

ActiveXForm中
TMyActiveXForm = (...)
...
Form1:=TForm1.Create(Nil);
Form1.ActiveXForm:=Self;
Form1.Show;
...

 

J

jackeysen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-05

• #11

我的做法是ACTIVEXFORM上甚么也不放，其他的窗口按普通的窗口做好后在加到ACTIVEXFORM上，这样你的要求就全可做到了，我现在就这样做的，刚做好

 

W

wkp13_8

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-09

• #12

jackeysen is right!

 

C

cai_cyb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-05

• #13

ActiveXForm中
form1:=tform1.create(self);
form1.showmodal;

form1中
((self.Owner) as activeform).edit1.text:=edit1.text;
关闭 form1
close;
form1.free;

 

人

人生如云

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-11-19

• #14

多人接受答案了。