1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

  TNewCompontent = class(TScrollBox)
  private
    FEigenschaft : Integer;
    procedure SetEigenschaft(const Value: integer);
    function GetEigenschaft: Integer;
  protected
    property HorzScrollBar;
  published
    { Published declarations }
    Constructor Create(AOwner : TComponent);override;
    Property Eigenschaft: Integer read GetEigenschaft write SetEigenschaft;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  TNewCompontent = class(TScrollBox)
  private
    FEigenschaft : Integer;
    procedure SetEigenschaft(const Value: integer);
    function GetEigenschaft: Integer;
    function getHorzScrollBar: TControlScrollBar;
    procedure setHorzScrollBar(Value: TControlScrollBar);
  protected
    property HorzScrollBar: TControlScrollBar read getHorzScrollBar write setHorzScrollBar;
  published
    { Published declarations }
    Constructor Create(AOwner : TComponent);override;
    Property Eigenschaft: Integer read GetEigenschaft write SetEigenschaft;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function TNewComponent.getHorzScrollBar: TControlScrollBar;
begin
  Result := inherited HorzScrollBar;
end;

procedure TNewComponent.setHorzScrollBar(Value: TControlScrollBar);
begin
  if inherited HorzScrollBar <> Value then inherited HorzScrollBar := Value;
end;