error client msgbox

0

witam mam taki problem

procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
 label1.Caption:='Błąd połączenia nr '+inttostr(ErrorCode);
end;

mam taki kod działa on dobrze ale podwójnie
tzn no wypisuje mi w labelu oczywiście ze jest błąd ale też wyskakuje mi msgbox
jak zrobić żeby ten msgbox nie wyskakiwał?

0

To znaczy jaki messagebox, z wyjątkiem? Może pomóc

try
 label1.Caption:='Błąd połączenia nr '+inttostr(ErrorCode);
{...}
except
{...}
end;
0

chodzi o błąd "Asynchronous socket error 10061"
a to wyżej niestety nie działa : (

0 
procedure TForm1.ClientError(Sender: TObject; Socket: TCustomWinSocket;
  ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
  try
    Label1.Caption:='Błąd połączenia nr '+IntToStr(ErrorCode);
  except
    on E:Exception do Exit; //pochłaniamy wyjątek
  end;
end;
0

niestety nie działa również : (

1 użytkowników online, w tym zalogowanych: 0, gości: 1