Забить exception

← →
AndrewVolkov (2004-05-02 13:39) [0]

Доброго всем дня.
Вопрос следующий.
Есть ClientSocket - который при открытии, если ServerSocket недоступен, выдает сообщение
Asynhronous socket error 10061

у ClientSocket в свою очередь есть событие OnClientError

procedure TfmRClient.SrSocketClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer);
если я здесь добавлю
case ErrorEvent of
: eeConnect : ShowMessage("Error connect");
end;//case

он выдаст и мое сообщение и потом опять системное. А я хочу только свое. А где отловить этот ексептион я не могу понять. Если кто в курсе - подскажите.

← →
AndrewVolkov (2004-05-02 13:53) [1]

P.S.
пробовал ставить при открытии, не помогает

try ClSocket.Open; except ShowMessage("Error"); end;

← →
DVM © (2004-05-02 13:57) [2]

procedure TfrmMain.ClientSocketError(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
ErrorCode := 0;
//свое сообщение об ошибке!
end;

← →
AndrewVolkov (2004-05-02 14:05) [3]

Big Thanks

Забить exception Найти похожие ветки