[Kompoente] Ereignisse überschreiben

[berens]

Hum. Wenn du im Quelltext mit STRG einen Klick z.B. auf "TButton" machst, solltest du zum Quelltext davon kommen und den überschreiben können.

Mein Tip: Nicht machen!
Sondern: Leite Dir einmal alle Klassen ab, die Du brauchst (z.B. "TMyButton") und verwende diese dann.

Wenn du allen Objekten eine bestimmte Funktion/Prozedur hinzufügen möchstest (z.b. für alle deine Komponenten die Funktion "About"), solltest Du Dir vielleicht mal sowas wie Interfaces anschauen (kenn mich mit denen noch net so aus...)

Edit: Ja, fooClick kannst du benennen wie du willst. Mit anderen Events kannst du das genauso machen, allerdings muss der Typ der Variable, in der du die "Benutzerdefinierte" Prozedur abspeicherst, vom selben Typ sein, wie die, die du aufrufen willst.

z.B. anstatt von TMyProcedureWithSender = procedure(_Sender: TObject) of object;
TMyProcedureWithKey = procedure(_Sender: TObject, _Key: Key) of object;

etc.

Ich glaube, du musst auch noch die Parameter immer mitgeben, wenn du diese Prozedur aufrufst:

Delphi-Quellcode:

procedure TFoo.fooClick(_Sender: TObject);
  begin
    if assigned(FOnClick) then begin
      FOnClick(_Sender); // <-- hier _Sender, _Key und was nicht alles übergeben
    end;
  end;