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 (). 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

markieren

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


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

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

Gruß!
Robert

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?

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 Width nicht in published?

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.

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

entfernen nicht aber gegf .überschreiben oder reintroducen.

Nur mal zur Erklärung:

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

markieren

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?

Zitat von Rob09:

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

markieren

Code:

public
  property Width: Integer read FWidth write SetWidth;

Ich denke ein überschreiben der Virtuellen Methode

    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); virtual; ist sinnvoller, da diese eh bei Setzen von Width/Height/Left/Top aufgerufen wird.

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

Gruß!
Robert