828
社区成员
发帖
与我相关
我的任务
分享delphi一个例子的疑问，关于serversocket
procedure TChatForm.ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source, HelpFile: string;
HelpContext: Integer; var CancelDisplay: Wordbool);
begin
ShowMessage(Description);
end;
这是delphi自带的chat的例子中的
可是tserversocket元件根本没有Error事件阿，请问这句从哪里来的？
var Description: string; Scode: Integer; const Source, HelpFile: string;
HelpContext: Integer; var CancelDisplay: Wordbool);
begin
ShowMessage(Description);
end;
这是delphi自带的chat的例子中的
可是tserversocket元件根本没有Error事件阿，请问这句从哪里来的？
...全文
请发表友善的回复…
发表回复
x_qiang 2002-01-07
- 打赏
- 举报
不可能是自定义的，不可能定义这么复杂的，没用
没有地方调用它
没有地方调用它
kangyinglai 2002-01-07
- 打赏
- 举报
看看帮助，应该是从上面继承下来的也或者跟API有什么关系
pdsinfo 2002-01-07
- 打赏
- 举报
procedure TChatForm.ServerSocketError(Sender: TObject; Number: Smallint;
var Description: string; Scode: Integer; const Source, HelpFile: string;
HelpContext: Integer; var CancelDisplay: Wordbool);
begin
ShowMessage(Description);
end;
这是窗体自己的方法,不是三ServerSocket的事件
var Description: string; Scode: Integer; const Source, HelpFile: string;
HelpContext: Integer; var CancelDisplay: Wordbool);
begin
ShowMessage(Description);
end;
这是窗体自己的方法,不是三ServerSocket的事件
cszhz 2002-01-07
- 打赏
- 举报
自定义的。
shadows 2002-01-07
- 打赏
- 举报
自己创建的把
