[Kompoente] Ereignisse überschreiben

[xZise]

Wie kann ich ein Ereignis der Stammkomponente überschreiben?

[berens]

Delphi-Quellcode:

Type 
  TMyProcedureWithSender = procedure(_Sender: TObject) of object;

  TFoo = class(TBar)
  private
    FOnClick: TMyProcedureWithSender;
    fooClick(_Sender: TObject);
  public
    property OnClick: TMyProcedureWithSender read FOnClick write FOnClick; // oder direkt als Variable
    constructor Create(_Owner: TComponent); override; 
  end;

  constructor TFoo.Create(_Owner: TComponent);
  begin
    inherited;
    inherited OnClick := fooClick; // das "wirkliche" OnClick zuweisen
  end;

  procedure TFoo.fooClick(_Sender: TObject); // falls "wirklich" geklickt wurde
  begin
    if assigned(FOnClick) then begin // nachschauen ob eine "Benutzerdefinierte" Prozedur für OnClick vorhanden ist
      FOnClick; // wenn ja, dann ausführen
    end; 
  end;

Bin ziemlich sicher, dass sich da auch was in der Suche finden lässt. Hoffe, dass das so in etwa funzt.

[yörsch]

HAI, Problem sollte nicht das Quellcode schreiben sein, sondern an welcher stelle ich die DCU´s u.ä. setze?
wenn ich das für alle Projekte haben will. ansonsten ist das von berens OK.

[xZise]

Also ich muss KeyDown und KeyPress überschreiben bzw. etwas dazuschreiben....

1.) Und weitere Parameter füge ich einfach ein, so wie bei normalen Prozeduren?
2.) Ist "fooclick" eine Prozedur?

[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;

[yörsch]

versuchs doch mal mit Strg + linke MausTaste auf z.B. : TBar dann kommst du nach TBar und kannst da die decrarationen übernehmen...

[Martin K]

Zitat von xZise:

Also ich muss KeyDown und KeyPress überschreiben bzw. etwas dazuschreiben....

1.) Und weitere Parameter füge ich einfach ein, so wie bei normalen Prozeduren?
2.) Ist "fooclick" eine Prozedur?

KeyPress zu überschreiben geht so (z.B. bei einem TEdit soll nicht der Buchstabe 'A' zugelassen werden):

Delphi-Quellcode:

type
  TMyEdit = class(TEdit)
  protected
    procedure KeyPress(var Key: Char); override;
  end;

{...}

procedure TMyEdit.KeyPress(var Key: Char);
begin 
  if Key = 'A' then
    Key := #0;
  else
    inherited;
end;

Wenn Du zusätzliche Parameter einführen willst bin ich mir nicht ganz sicher, sollte aber theoretisch so gehen:
Anstatt override; verwendest Du reintroduce;.
Bei inherited; musst Du dann inherited KeyPress(Key); schreiben.

[xZise]

Hmm
Hi Martin... Dsa scheint nicht ganz zu gehen, oder ich habe was übersehen:

Zitat:

Deklaration von 'KeyDown' unterscheidet sich von vorheriger Deklaration

Ja Und zwar, habe ich vergessen, das "Sender : TObject" zu entfernen

Zitat von yörsch:

versuchs doch mal mit Strg + linke MausTaste auf z.B. : TBar dann kommst du nach TBar und kannst da die decrarationen übernehmen...

Das Problem war, das ich bei Memo keine Anhaltspunkte gefunden habe...

[Martin K]

Klappt es denn so?

Delphi-Quellcode:

type
  TMyMemo = class(TMemo)
  protected
    procedure KeyDown(var Key: Word; Shift: TShiftState; Test: Boolean); reintroduce;
  end;

{...}

procedure TMyMemo.KeyDown(var Key: Word; Shift: TShiftState; Test: Boolean);
begin
  if Test then
    inherited KeyDown(Key, Shift);
end;

[xZise]

Ne Maritin ^^ Du hast alles richtig gemacht... Er hat deine Variante kompliert... Nur hatte ich das "Sender" mitkopiert Deshalb...