Question

怎么给TTcpServer添加OnReceive事件？TTcpServer父类TCustomTcpServer里也没有重声明该事件。

我在窗体上加了个TTcpServer控件，在窗体类的声明部分加procedure
TcpServerReceive(Sender: TObject; Buf: PansiChar; var DataLen: Integer);用于在实现部分写处理代码，但它的声明部分TcpServer1.OnReceive:=TcpServerReceive;我不知道该放哪？试了，放哪都编译不通过。

Answer 1

你不需要自己写TcpServerReceive，你把你加的代码去掉。

然后在属性编辑器，切换到Methods页面，双击OnServerReceive，把你写的代码，加入到生成的框架钟即可。

追问

我用Delphi 2009，有对象查看器，有properties、Events，但没有OnReceive事件。
后来我在窗体的OnCreate中声明了TcpServer1.OnReceive:=TcpServerReceive;，但我不知道会不会触发。我现在TcpServer能收到TcpClient发的连接请求，但没收到数据。正看呢。

追答

怎么会没有嘛。你仔细检查：
property OnReceive: TSocketDataEvent;

你在窗体OnCreate中关联也可以。