Vererbung: Modifikation der Properties

[jfheins]

Zitat von Rob09:

1. Wenn man im Code-Editor mit der rechten Maustatse auf bsp. "TCustomPanel" klickt und dann "Find Declaration" anklickt, müsste man eigentlich die Deklaration von TCustomPanel angezeigt bekommen, nehme ich an (). Bei mir kommt allerdings die Meldung "Unable to locate ExtCtrls.pas". Liegt das daran, dass ich nur die Personal-Edition besitze? Kann ich die Deklarationen trotzdem irgendwie irgendwo einsehen?

Ja, liegt daran und nein, den Source bekommt man nur mit den Bezahlversionen.

Zitat:

2. Ein Problem, was ich deshalb habe, ist folgendes:

Ein Objekt "TErbe" erbt von TCustomPanel. Wenn man die Eigenschaft "Width" ändert, soll weiterer Code aufgerufen werden. Normalerweise benutze ich dann...

Wie wär's damit: Überschreibe die Methode SetBounds und überprüfe, ob sich die Breite geändert hat. Rufe danach inherited auf.

[Rob09]

Hi!

Vielen Dank für die Aufklärung. Und danke sehr auch für die Idee mit dem SetBounds - damit erreiche ich genau, was ich möchte!

Wenn mich jetzt noch jemand darüber aufklären könnte, ob man tatsächlich procedures/functions/properties, die eine Ancestor-Klasse besitzt, im Erben "entfernen" kann, wäre ich richtig happy

Viele Grüße!
Robert

[Bummi]

entfernen nicht aber gegf .überschreiben oder reintroducen.

[stahli]

Nur mal zur Erklärung:

SetWidth ist in TControl als privat deklariert und nicht virtuell oder dynamisch. Deshalb kann es nicht überschrieben werden.

Delphi-Quellcode:

  TControl = class(TComponent)
  private
    procedure SetWidth(Value: Integer);
    ...

M.E. sollten nahezu alle Methoden virtuell deklariert sein, damit man zumindest die Möglichkeit hat, noch etwas zu optimieren.
Natürlich muss man dann auch wissen, was man tut
Ebenso sollten Methoden grundsätzlich nicht privat sein. Der protected-Abschnitt hat doch keine Nachteile und bietet wenigstens die Möglichkeit, eine nützliche Änderungen vorzunehmen.

Warum sind die Standardkomponenten so "unnötig stark" abgeschottet?