Vererbung: Modifikation der Properties

[Rob09]

Hi! Ich möchte mal endlich einiges lernen, was mir schon ewig im Hinterkopf rumgeistert... Bitte dabei um eure Hilfe!


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 (:stupid:). 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?


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

Code:

public
  property Width: Integer read FWidth write SetWidth;

mit einer Prozedur SetWidth, die das entsprechende bewerkstelligt. Allerdings wird nun zwar wie gewünscht mein Code ausgeführt, allerdings wird die eigentliche Width-Eigenschaft aus der Ancestor-Klasse (also eben das, was man so unter Width versteht) überhaupt nicht mehr verändert. (Klar, ich überschreibe ja den Setter). Da es mit "inherited SetWidth" auch nicht geht, stehe ich hier vor einem Rätsel, wie ich mir helfen sollte. Auch hier ist eure Hilfe herzlich erwünscht :wink:


3. Ein unbefriedigender Ausweg wäre jetzt, mir eine neue Eigenschaft "Breite" zu erstellen, wo dann der Setter letztendlich auch die Width-Eigenschaft ändert. Dann müsste ich - um sicher zu gehen, dass nicht versehentlich doch direkt Width benutzt wird - die Width-Eigenschaft quasi aus dem public Teil entfernen. Geht das? Wenn ja, wie?


Glaubt mir, ich habe ausgiebig gesucht, aber leider erfolglos :cry:

Wäre sehr nett, wenn ihr mir behilflich sein könntet...

Gruß!
Robert

[rollstuhlfahrer]

Zitat:

Zitat von Rob09 (Beitrag 1058546)

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 (:stupid:). 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?

In der Personal Edition liegen die Quellcodes nicht dabei. Du kannst sie also auch nicht einsehen. Für die Deklarationen kannst du z.B. die Delphi-Referenz benutzen.

Bernhard

PS: Gehört

Delphi-Quellcode:

Width

nicht in published?

[jfheins]

Zitat:

Zitat von Rob09 (Beitrag 1058546)

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 (:stupid:). 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 :wink:

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 :wink:
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?

[Bernhard Geyer]

Zitat:

Zitat von Rob09 (Beitrag 1058546)

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

Code:

public
  property Width: Integer read FWidth write SetWidth;

Ich denke ein überschreiben der Virtuellen Methode

Delphi-Quellcode:

    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); virtual;

ist sinnvoller, da diese eh bei Setzen von Width/Height/Left/Top aufgerufen wird.

[Rob09]

Hi! Vielen Dank an euch alle für die Aufklärung:thumb:! Schönen Tag noch,

Gruß!
Robert