Delphi写OCX控件(用ActiveForm生成)，如何显露里面组件的事件？？？(100分)

X

xkyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #1

使用ActiveForm做的OCX控件，里面有个按钮，
现在要把这个按钮的OnClick事件或其他组件的事件显露出来，让调用OCX的主程序可以使用这个事件。
查了很多书籍，没有说的，看Borland帮助，只有简单的几句话，不知道在说什么！

非常感谢！！！！！

 

J

jerry529

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #2

你要在接口里面声明一个这样的接口函数才行。

 

X

xkyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #3

jerry529,能不能详细一点叙述？为这个问题，我快着急死了。

 

X

xkyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-26

• #4

能给个最简单的示例代码就好了！！！

十分谢谢！！！！！！！！

 

F

fantasylu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-30

• #5

1）Type library 写一时间如 onCellDBClick
2) 载控件privite,那里有很多XXXEvent 如ClickEvent 等等 ，新增一个CellDbClickEvent
名字随便就可以，用于发出消息,然后代码
if FEvents <> nil then FEvents.OnCellDBClick;
3）TActiveFormX.Initialize 里面写
onCellDbClick:=dbgrid1.onCellClick
然后就可以了

 

X

xkyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #6

fantasylu,谢谢您的回答！
我按您的方法试了试，有下面的问题：
1 .你说在Type library 加一个事件，我这么加了：
protected
procedure OnBlnClick:TNotifyEvent;
end;
2和3步也做了，问题是if FEvents <> nil then FEvents.OnBlnClick;在这句的FEvents.以后出现的提示中根本没有OnBlnClick！编译的时候也通不过。

想问一下，是第一步就搞错了吗？能不能给个小示例程序？或解释的再清晰一点？

非常感谢！！！！！

 

F

fantasylu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #7

请把你的email给我，我发给你

 

M

mystudy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #8

这样
edit->add to interface
然后加要的属性和事件

 

X

xkyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #9

fantasylu， 我的Email
xkyman@sina.com
非常感谢！！！！

解决的话，一定再开个帖子酬谢你！

 

X

ximyma

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #10

我在学网络编程，这个问题我也想知道。

 

F

fantasylu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-31

• #11

例子已经写好，如果想要可以留下e-mail，我发给你们

 

X

xkyman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-02

• #12

感谢fantasylu的代码！已经基本解决这个问题了。