TClientSocket - OnError Event per Code zuweisen

[Christian Seehase]

Moin Christian,

Zitat von Yheeky:

Ich habe das bisher nur mit anderen Komponenten gemacht z.B. mit Labels und da hat folgendes immer geklappt:

Delphi-Quellcode:

procedure LabelClick (Sender : TObject);
begin
ShowMessage('Label geklickt');

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.OnClick := LabelClick;

end;

Das wird genausowenig funktionieren.

Eine Methode ist eine Funktion/Prozedur einer Klasse, Z.B. das Button1Click ist eine Methode der Klasse TForm1.
So geht es

Delphi-Quellcode:

TForm1 = class(TForm)
  //...
  // Beispiel einer häufig vorkommenden Methode
  procedure Button1Click(Sender: TObject); 
  //...
  procedure ClientError(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer); 
  //...
private
  //...
public
  //...
end;

//...

implementation

procedure TForm1.ClientError(Sender: TObject;Socket: TCustomWinSocket; ErrorEvent: TErrorEvent; var ErrorCode: Integer); 
begin
  //...
end;