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:

Zitat von FaTaLGuiLLoTiNe (Beitrag 1427114)

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;

[Schokohase]

Zitat:

Zitat von Andreas L. (Beitrag 1427167)

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;

Nun ja
-

Delphi-Quellcode:

TCustomPanel.ParentFont

ist

Delphi-Quellcode:

protected

(deklariert in

Delphi-Quellcode:

TControl.ParentFont

)
-

Delphi-Quellcode:

TCustomPanel.Left

ist

Delphi-Quellcode:

published

(deklariert in

Delphi-Quellcode:

TControl.Left

)
Das wundert mich also nicht und damit stimmt die Aussage weiterhin, dass man die Sichtbarkeit nicht verringern kann.

[Andreas L.]

Zitat:

Zitat von Schokohase (Beitrag 1427169)

Zitat:

Zitat von Andreas L. (Beitrag 1427167)

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;

Nun ja
-

Delphi-Quellcode:

TCustomPanel.ParentFont

ist

Delphi-Quellcode:

protected

(deklariert in

Delphi-Quellcode:

TControl.ParentFont

)
-

Delphi-Quellcode:

TCustomPanel.Left

ist

Delphi-Quellcode:

published

(deklariert in

Delphi-Quellcode:

TControl.Left

)
Das wundert mich also nicht und damit stimmt die Aussage weiterhin, dass man die Sichtbarkeit nicht verringern kann.

Im Code habe ich aus versehen TCustomPanel statt TPanel geschrieben. In TPanel ist ParentFont published. Mit folgendem Code wird sie protected:

Delphi-Quellcode:

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