Properties bei Ableitung verschieben

[Getox]

Moin,

kann ich beim Ableiten einer Komponente (zum Beispiel TEdit) in der Ableitung Sachen vom Published in den Public Bereich verschieben, ohne die Ursprungskomponente anzufassen? Und falls es geht, wie?

Ich möchte ein eigenes Edit implementieren, das nicht nur neue Funktionen beherrscht, sondern auch für meine Zwecke aufgeräumter ist. 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.

Liebe Grüße

[TiGü]

Oder du leitest von TCustomEdit aus Vcl.StdCtrls ab und published nur das, was du möchtest.

[DeddyH]

Exakt, genau so handhabt die VCL das intern auch.

[FaTaLGuiLLoTiNe]

Man kann bei Vererbung die Sichtbarkeit von Eigenschaften nur erweitern, nicht beschränken.

[DeddyH]

Deshalb ja der Trick, in den TCustomXXX-Klassen sind die meisten Properties protected deklariert, die Ableitungen implementieren oft gar keine oder nur wenige weitere Funktionalitäten, erhöhen aber die Sichtbarkeit der für sinnvoll erachteten Properties.

[TurboMagic]

Zitat von FaTaLGuiLLoTiNe:

Man kann bei Vererbung die Sichtbarkeit von Eigenschaften nur erweitern, nicht beschränken.

Jein...
Ich habe auch schon mal methoden in kindklassen überschrieben die dann weniger sichtbar waren.
Nur: der Compiler warnt immer davor und da es sowieso ausversehen war hab' ich das dann auch gleich geändert.

Zumindest bei Methoden geht es also.

[DeddyH]

Dann dürfte das hier aber nicht funktionieren:

Delphi-Quellcode:

type
  TParent = class
  public
    procedure TuWas; virtual;
  end;

  TChild = class(TParent)
  strict private
    procedure TuWas; override;
  end;

{ TParent }

procedure TParent.TuWas;
begin
  ShowMessage('Parent');
end;

{ TChild }

procedure TChild.TuWas;
begin
  ShowMessage('Child');
end;

procedure TFormTest.ButtonTestClick(Sender: TObject);
var
  test: TChild;
begin
  test := TChild.Create;
  try
    test.TuWas;
  finally
    test.Free;
  end;
end;

[Andreas L.]

Bei manchen Eigenschaften kannst du die Sichtbarkeit verringern.

Delphi-Quellcode:

type
  TMyControl = class(TCustomPanel)
  protected
    // Ist nicht mehr im Object-Inspector zu sehen:
    property ParentFont;
    // Ist weiterhin im Object-Inspector zu sehen:
    property Left;
  end;

[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.