为什么我这个异常处理没有用啊？

Question

下面函数的异常没有起作用，当服务器端没有开或断开，这个函数就会弹出错误框框啊？procedure TForm1.ClientSocketError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
try
         lblMsg.Caption :='Static:'+'socket err::'+intToStr(ErrorCode);
except
      on ESocketError do
          lblMsg.Caption :='Status: socketerr(Socket)';
      else
         lblMsg.Caption :='Status: ';
     
end;//for try
end;
http://expert.csdn.net/Expert/topic/2857/2857423.xml?temp=.1134912

Answer 1

你的try except不应该写在这里的吧。
应该是try有可能出现错误的 语句
而不是象你这么写的

Answer 2

好象问过啊，
放在OnError事里处理里啊，
ErrorCode:=0;
ShowMessage();

Answer 3

如果不想探出框，就直接
ErrorCode:=0;
其它的都不要