Properties bei Ableitung verschieben

[DeddyH]

Man kann aus dem Code heraus trotzdem darauf zugreifen, was soll das also bringen?

[TurboMagic]

Die ursprüngliche Frage war glaube ich nicht was das bringt, sondern ob das geht
Der OP wollte glabe ich alles was er nicht nutzt in seiner abgeleiteten Komponente aus dem objectinspektor raus haben.

[DeddyH]

Und deshalb ist die erste Antwort auch der so ziemlich einzige gangbare Weg.

[Uwe Raabe]

Zitat von Getox:

Dafür möchte ich gerne alles aus dem Objektinspektor verbannen, was ich ohnehin nie benutze. Zur Not kann man es ja immer noch per Code ändern oder wieder aufnehmen.

Du könntest im Package, das deine Komponente in der IDE installiert, eine von TSelectionEditor abgeleitetet Klasse registrieren, die das ISelectionPropertyFiler Interface implementiert und in FilterProperties die ungewünschten Properties ausfiltert.

[Getox]

Ich Arbeite nun schon seit 3 Jahren mit Delphi... aber irgendwie trete ich selbst mit meiner persönlichen Entwicklung auf der Stelle. Ich mache tagtäglich eigentlich nichts anderes als vorgegebene Dinge in unserem (nicht objektorientierten) Projekt zu reparieren oder zu erweitern und dabei zu hoffen, dass ich nichts anderes dabei kaputt mache.

Ich möchte aber auch mal neue Bereiche kennen lernen... daher wollte ich mal ein wenig mit selbst abgeleiteten Komponenten und Klassen/Objekten rumspielen und lernen.

Wie auch immer... Ich habe jetzt das TCustomEdit abgeleitet und erstmal nur 3 Kleinigkeiten zum Test abgeändert (Höhe, ctl3d aus und Schriftgröße). Dann habe ich das mit einem neuen Komponentenpaket erzeugt. Was direkt auffällt ist, dass die DCUs nicht im selben Ordner erscheinen wie die PAS-Dateien, was sonst immer so ist. Aber die PAS liegt in dem Ordner wo alle unsere zusätzlichen Komponenten liegen, die zugekauft wurden und wo auch ein Suchpfad existiert.

Ich installiere das Paket und öffne ein anderes Projekt. Dort sehe ich das neue Edit auch in der Toolpalette. Dann ziehe ich es auf mein Form und im Designer erscheint es augenscheinlich auch mit den angepassten Eigenschaften. Ebenso wird in den Uses meine neue Unit eingetragen. Das ist allerdings rot unterstrichen und ich kann nicht kompilieren, weil er angeblich keine DCU findet.

Unter "C:\***\Documents\RAD Studio\Projekte\Win32\Debug" habe ich eine DCU gefunden, die den Namen meines Edits trägt und habe die in den Ordner kopiert, wo auch die PAS liegt, aber das Problem besteht weiterhin. Keine Ahnung was ich jetzt machen soll.

Edit:
Ich habe es jetzt geschafft, dass die DCU in das Verzeichnis erzeugt wird, wo auch die PAS liegt. Das ist schon mal gut. Dennoch bekomme ich die Meldung, dass der Unit-Name nicht aufgelöst werden kann und beim Erzeugen wird mir gesagt, dass die DCU nicht gefunden werden kann. Als Suchpfad habe ich in meinem Projekt aber den Überordner des Ordners angegeben, wo die DCU tatsächlich liegt...

Edit 2:
Habe es hinbekommen. Ich musste den Ordner auch noch mal unter Tools/Optionen in den Bibliothekspfad eingeben. Leider werden die Änderungen mit Edit-Höhe und Schriftgröße nicht übernommen... aber das bekomme ich auch noch hin Bis jetzt habe ich in der abgeleiteten Komponente ein Construktor angelegt und in diesem die Werte gesetzt. Eventuell muss es noch einen anderen Weg geben den Defaultwert von Properties in einer abgeleiteten Komponente zu setzen.

[Getox]

Ich schreibe einfach einen neuen Post, damit das neue Anliegen nicht übersehen wird, weil es nur ein Edit gewesen wäre:

Ich habe jetzt ein Edit, dass ich von TCustomEdit abgeleitet habe. Dieses soll einfach erstmal nur 2 winzige Änderungen haben und daran scheitert es schon:
- Höhe von 24
- Ctl3D auf False

Ich habe schon vieles Versucht und es hat einfach nie Auswirkungen.

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Height default 24;
    property Ctl3D default False;
  end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Height stored True default 24;
    property Ctl3D stored True default False;
  end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent);
  published
    { Published-Deklarationen }
    property Height default 24;
    property Ctl3D default False;
  end;

constructor TTextEdit.create(AOwner: TComponent);
begin
  inherited;
  Height := 24;
  Ctl3D := False;
end;

Code:

type
  TTextEdit = class(TCustomEdit)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent);
  published
    { Published-Deklarationen }
    property Height stored True default 24;
    property Ctl3D stored True default False;
  end;

constructor TTextEdit.create(AOwner: TComponent);
begin
  inherited;
  Height := 24;
  Ctl3D := False;
end;

Wo liegt mein Fehler oder was übersehe ich?

[Fritzew]

Der constructor ist virtuell. Du musst Ihn mit override deklarieren.

Eigentlich gibt Dir der Compiler dazu eine Warnung aus:

W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TCustomEdit'

Delphi-Quellcode:

 public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent); override;

[Getox]

Zitat von Fritzew:

Der constructor ist virtuell. Du musst Ihn mit override deklarieren.

Eigentlich gibt Dir der Compiler dazu eine Warnung aus:

W1010 Methode 'Create' verbirgt virtuelle Methode vom Basistyp 'TCustomEdit'

Delphi-Quellcode:

 public
    { Public-Deklarationen }
    constructor create(AOwner: TComponent); override;

Das hat tatsächlich geklappt. Ctl3D ist nun ausgeschaltet. Die Höhe ist auch nicht mehr 22 sondern 23. Aber ich habe 24 eingestellt. Das ist seltsam. Auch wenn ich das auf 25 setze ist es im Endeffekt auf 23, als sei da eine maximale Höhe gesetzt...

Edit: Klappt jetzt. Danke erstmal