Geerbtes Ereignis erweitern

[s-off]

Hallo zusammen,

folgende Situation:

Ich habe ein Memo vom Typ TAdvMemo (TMS-Komponenten) welches wiederum von der Klasse TAdvCustomMemo abgeleitet ist.
Diese hat ein Ereignis MouseDown im Protected-Abschnitt, welches ich gerne um eine Zeile erweitern möchte.
Natürlich könnte ich diese Zeile nun direkt im Quellcode der Klasse einfügen, was auch funktioniert, allerdings soll diese Änderung nur für dieses eine Projekt gültig sein soll.

Nun meine Frage:
Kann ich nicht von diesem Memo ableiten, und dann diese eine Zeile zu der Prozedur hinzufügen?

Habe was die Vererbung angeht leider kaum Erfahrungen und weiss daher nicht, wie ich überhaupt anfangen soll, dass die Prozedur an sich komplett übernommen wird (inherited?) und dnan noch die zusätzliche Zeile ausgeführt wird.

[BenjaminH]

Mit dem inherited lagst du schon ziemlich richtig:

Delphi-Quellcode:

procedure TIrgendwas.BeiIrgendwas;
Begin
  inherited BeiIrgendwas;
  Nochirgendwas;
End;

So wird das vererbte BeiIrgendwas und dann dein zusätzlicher Code ausgeführt.

[s-off]

Danke :o)

[fkerber]

Hi!

Du solltest dabei noch ein "override" dazusetzen (oben bei der Funktions-Deklaration).


Ciao Frederic

[s-off]

okido, erledigt - danke :)