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;