如何在自定义控件中接受附带的控件的消息(100分)

H

happylee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-10

• #1

各位大虾,紧急！！！
我在开发自定义的控件时,使用了TServerSocket 和TClientSocket。如何在控件中接收发给这
两个控件的消息？比如说TServerSocket的OnClientRead消息？我试着用与在Form中同样的方法，
来定义接收这个消息的过程，可是接收不到消息。
应该怎样来写这个过程？
谢谢！

 

G

GGCAT

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-11

• #2

贴出你这部分的源码看看，应该没问题的。

 

W

wwk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-10-11

• #3

自定义一个和TServerSocket.OnClientRead的方法指针变量
即：type TSocketNotifyEvent =
procedure (Sender: TObject; Socket: TCustomWinSocket) of object;
在你自己控件的数据区定义
然后将自定义的这个事件过程和TServerSocket.OnClientRead相连，便可截获消息

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-11-15

• #4

接受答案了.