B BigMount Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-09 #1 正在设计一个类，把socket封装到了里面，可以发送、接收信息。发送信息比较好做，但是怎么让类的实例可以接收其它socket发送过来的信息呢？让他具有类似OnDataReceive的事件，如果其它电脑在发送信息，类的实例便能够触发OnDataReceive事件。希望能够给出一个简单的例子。
正在设计一个类，把socket封装到了里面，可以发送、接收信息。发送信息比较好做，但是怎么让类的实例可以接收其它socket发送过来的信息呢？让他具有类似OnDataReceive的事件，如果其它电脑在发送信息，类的实例便能够触发OnDataReceive事件。希望能够给出一个简单的例子。
B BigMount Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-09 #2 正在设计一个类，把socket封装到了里面，可以发送、接收信息。发送信息比较好做，但是怎么让类的实例可以接收其它socket发送过来的信息呢？让他具有类似OnDataReceive的事件，如果其它电脑在发送信息，类的实例便能够触发OnDataReceive事件。希望能够给出一个简单的例子。
正在设计一个类，把socket封装到了里面，可以发送、接收信息。发送信息比较好做，但是怎么让类的实例可以接收其它socket发送过来的信息呢？让他具有类似OnDataReceive的事件，如果其它电脑在发送信息，类的实例便能够触发OnDataReceive事件。希望能够给出一个简单的例子。
蛋 蛋炒饭 Unregistered / Unconfirmed GUEST, unregistred user! 2005-06-09 #3 在你的类中定义一个过程，例如 TClickEvent = procedure (sender: TObject) of object; 在你的类的private段中，定义一个过程 FonClick: TClickEvent ; 然后在你的类的published段中，定义一个属性 property onclick: TClickEvent read FonClick write FOnClick; 这样就可以了。 然后在类中根据FOnClick来处理。 对于你要的OnDataReceive事件，参照以上修改即可
在你的类中定义一个过程，例如 TClickEvent = procedure (sender: TObject) of object; 在你的类的private段中，定义一个过程 FonClick: TClickEvent ; 然后在你的类的published段中，定义一个属性 property onclick: TClickEvent read FonClick write FOnClick; 这样就可以了。 然后在类中根据FOnClick来处理。 对于你要的OnDataReceive事件，参照以上修改即可
