Properties bei Ableitung verschieben

[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 von 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;

Nun ja
- TCustomPanel.ParentFont ist protected (deklariert in TControl.ParentFont )
- TCustomPanel.Left ist published (deklariert in TControl.Left )
Das wundert mich also nicht und damit stimmt die Aussage weiterhin, dass man die Sichtbarkeit nicht verringern kann.

[Andreas L.]

Zitat von Schokohase:

Zitat von 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;

Nun ja
- TCustomPanel.ParentFont ist protected (deklariert in TControl.ParentFont )
- TCustomPanel.Left ist published (deklariert in 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;

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