Picture-Property von TImage ausblenden

[sCrAPt]

HiHo

Ich möchte die Picture-Property vom Vorfahrentyp TImage ausblenden. Ich hab dazu den Thread Properties von Vorfahren ausblenden durchgelesen, aber es funktioniert mit TImage komischer Weise nicht

Ich hab jetzt einfach

Delphi-Quellcode:

type
  TVerHorLabel = class(TImage)
  private
    property Picture: TPicture; override;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

gemacht, wodruch ich folgenden Error kriege:

Zitat:

[Fehler] VerHorLabel.pas(11): Anweisung INDEX, READ oder WRITE erwartet, aber ';' gefunden

Ich hab deshalb einfach mal STRG+C gemacht wodurch ein wirklich mehr als komischer Code bei mir entsteht:

Delphi-Quellcode:

type
  TVerHorLabel = class(TImage)
  published
  private
    property Picture: TPicture read FPicture write SetPicture; override;
  private
    FPicture: TPicture;
    procedure SetPicture(const Value: TPicture);
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

Was natürlich nicht geht also hab ichs so geordnet:

Delphi-Quellcode:

type
  TVerHorLabel = class(TImage)
  private
    property Picture: TPicture read FPicture write SetPicture; override;
    FPicture: TPicture;
    procedure SetPicture(const Value: TPicture);
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

Aber dann krieg ich wieder einen Error:

Zitat:

[Fehler] VerHorLabel.pas(11): Feld- oder Methodenbezeichner erwartet

Wo liegt denn mein Fehler? Was soll ich machen?