delphi中scktcomp.pas中源程序的问题(200分)

W

wyf6551863

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #1

delphi中scktcomp.pas中源程序中有下列定义
TSocketNotifyEvent = procedure (Sender: TObject; Socket: TCustomWinSocket) of object;
TSocketEventEvent = procedure (Sender: TObject; Socket: TCustomWinSocket;
SocketEvent: TSocketEvent) of object;
我猜想它们定义了一个消息通知程序和事件发生程序，用于驱动SOCKET事件，不知道对不对，还有这样的定义在书上没见过，过程没有过程名，请解释。

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #2

定义了一个事件，是个自定义事件，在做控件中经常使用的

 

Y

yostgxf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-18

• #3

举例：（我自己的控件中用的）
TAngleDivideEvent = procedure(Sender: TObject; Angle1, Angle2: Single; Azithum : array of Single) of object;
FOnAngleDivide : TAngleDivideEvent;
property OnAngleDivide : TAngleDivideEvent read FOnAngleDivide write FOnAngleDivide;//定义事件

if not Loading then if Assigned(FOnAngleDivide) then FOnAngleDivide(Self, Angle1, Angle2, AziVal);//在需要的时候激发这个事件

 

W

wyf6551863

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #4

我想再问一句，在哪几本书上可以看到与此相关的语法说明

 

W

wyf6551863

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #5

谢谢你的解释，我在水电的书上找到了说明，如果没有别的解释，明天我就结分。

 

H

hardware007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #6

声明事件

 

L

lyctree

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #7

就是事件声明，没别的解释了

 

A

apw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #8

在家说得都没错，给人分吧。

 

Z

zuping

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-02-20

• #9

我也在研究delphi中scktcomp.pas中源程序，颇有心得，有机会交流！
qq75326000
chongdzp@163.com