Public Variable einer Klasse in Unterklasse verbergen

[DeddyH]

Oder wie an vielen Stellen z.B. in der VCL:

Delphi-Quellcode:

type
  TCustomBase = class
  private
    FVarState: integer;
  protected
    property VarState: integer read FVarState write FVarState;
  end;

  TBase = class(TCustomBase)
  public
    property VarState;
  end;

In den TCustomXXX-Klassen sind die Properties und Methoden noch protected, die abgeleiteten Klassen erhöhen dann die Sichtbarkeit einfach nur noch selektiv.