[одинадцатый]

вот простая процедура сокета. как видно при ошибке подключения в мемо запишется что подключение сорвано. Нужно что бы НЕ вылетало окошко message от windows что подключится не удалось. я знаю что это можно через try except но как его сюда воткнуть не знаю.

Код:

procedure TForm1.cs1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
if  (ErrorCode>10013) and (ErrorCode<11020) then smemo1.lines.add('Connection failed');
end;

[Akzes]

вот так я думаю должно помочь

Код:

procedure TForm1.cs1Error(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
try
if  (ErrorCode>10013) and (ErrorCode<11020) then smemo1.lines.add('Connection failed');
except
end;
end;

[mak-karpov]

Помоему после проверки нужно установить ErrorCode в ноль

[одинадцатый]

Спасибо всем. ErrorCode:=0 попробовал - помогло.

А как быть если нет переменной Errorcode и что бы не использовать Abort?