onError-event in Unit zuweisen

N3tw124rd · Beiträge: 75 D5 Prof.

Hi,

ich hab ein kleines Problem und zwar erzeuge ich in einer Unit ein TClientSocket mit der Zeile

Delphi-Quelltext

1:	client := TClientSocket.Create(self);

und in den nächsten Zeilen weise ich proceduren zu die ich aus einem Formular kopiert habe und auf meine Klasse angepasst habe.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:

client.onError := clientError;

procedure TKlasse.clientError(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ErrorCode := 0;
end;

Problem ist das aber bei einem onError-Event nicht meine clientError Procedur aufgerufen wird.

Kann mir jemand helfen ? Muß ich irgendwo anders noch darauf verweisen?

MFG N3tw124rd

Moderiert von Tino: Delphi-Tags hinzugefügt.

lemming · Beiträge: 470 Mac OS 10.3.1 Delphi 6 Pro, Kylix 3

Ich mach das immer so:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure TMain.FormCreate(Sender: TObject);
begin
  Application.OnException := Main.OnError;
end;

procedure TMain.OnError(Sender: TObject; E: Exception);
begin
  ShowMessage('Error: ' + E.Message);
end;

Diese Prozedur fängt jede Exception ab.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme