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?

[mirage228]

Zitat von 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; // <-- das override muss weg! Edit: Das ": TPicture" auch!
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

Hi,

das override ist überflüssig.

mfG
mirage228

[sCrAPt]

dann kommt aber

Zitat:

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

[mirage228]

Zitat von sCrAPt:

dann kommt aber

Zitat:

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

Ach, sorry.

Es muss lediglich heissen:
property Picture; mfG
mirage228

[sCrAPt]

Wird ohne Error compiliert, aber Picture ist immernoch im OI zu sehen

[mirage228]

Zitat von sCrAPt:

Wird ohne Error compiliert, aber Picture ist immernoch im OI zu sehen

Dann versuch mal zu schreiben:
property Picture stored False; mfG
mirage228

[sCrAPt]

funktioniert auch nicht

[mirage228]

Hi,

dann trifft glaube ich das zu, was choose im anderen Thread gesagt hat -> es geht nicht.

Zitat von choose:

Leider lassen sich Properties nach dem Konzept von Delphi nicht nachträglich verstecken, lediglich "verbergen", indem sie erneut eingeführt werden (also namentlich im OI weiterhin aufgeführt sind) und keine Funktion bekommen (dummy Getter und Setter)- von dieser Lösung rate ich jedoch ab.
In den meisten Fällen hast Du bei den Komponenten der VCL/CLX jedoch einen Typ der Form TCustomXXX der zwar (annähernd) die vollständige Funktionalität der entsprechenden Klasse TXXX besitzt, jedoch nicht alle Eigenschaften veröffentlicht. Erbe einfach von ihm und veröffentliche nur diejenigen Eigenschaften, die später verwendet werden sollen.

leider gibt es keine Klasse TCustomImage. Du könntest natürlich den Source von TImage kopieren und deine eigene Komponente von TGraphicControl ableiten und dann picture nicht in den published Bereich schieben.

mfG
mirage228

[mirage228]

Sorry, Doppelpost: Bitte löschen...

[sCrAPt]

Dann werde ich meine Komponente einfach von TGraphicControl ableiten und erweitern. Danke für deine Mühe mirage