Auf Eigenschaften der übergeordneten Komponente zugreifen?

[Grolle]

Hallo,

wie kann ich auf die übergeordneten Eigenschaften der Komponente zugreifen, von der ich eine neue Komponente abgeleitet habe?:

Delphi-Quellcode:

unit Figur;

interface

uses
  SysUtils, Classes, Controls, Graphics, ExtCtrls, visulib, AdvProgr;

type
  tMaximum = 1..65535;

type
  TFigur = class(TAdvProgress)
  private
    Fstatus : boolean;
    FStatusadresse : string;
    FFigurMaximum : boolean;
    FMaximum : tMaximum;
    FSizeX : integer;
    FSizeY : integer;
    procedure setValue(i : string);
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner : TComponent); override;
  published             
    property FigurMaximum : boolean read FFigurMaximum write FFigurMaximum;
    property Invertiert : boolean read FStatus write FStatus;
    property Statusadresse : string read FStatusadresse write SetValue;
    property Maximum : tMaximum read FMaximum write FMaximum;
    property SizeX : integer read FSizeX write FSizeX;
    property SizeY : integer read FSizeY write FSizeY;
  end;

procedure Register;

implementation


constructor TFigur.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FStatusadresse := '0';
  FMaximum       := 65535;
  self.BkColor   := clWhite; // Das ist wohl nicht korrekt?
end;


procedure TFigur.setValue(i : string);
begin
  i := checkAdr(UpperCase(i));
  FStatusadresse := i;
end;

Hilfe

[mkinzler]

Genauso wie auf die eigenen ( wenn die Eigenschaften sichtbar sind)

[Keldorn]

self wäre doch Tfigur selber. du möchtest doch auf den Aowner zugreifen.

Gruß Frank

[Grolle]

Hi,

@mkinzler
auch innerhalb der obigen Klasse? Ich meine nicht im Objektinspektor!

Viele Grüße ...

[mkinzler]

Ja. Das ist ja das Prinzip der Ableitung.

[Grolle]

Hi,

Zitat von mkinzler:

Ja. Das ist ja das Prinzip der Ableitung.

in der Klasse funktioniert das auch, aber im Create nicht?

Viele Grüße ...

[DeddyH]

Nur so eine Idee: funktioniertinherited BkColor := clWhite;

[Grolle]

Hi,

Zitat von DeddyH:

Nur so eine Idee: funktioniertinherited BkColor := clWhite;

nein, aber ich verwende das ganze in einer DesignKomponente (wie der DelphiDesigner). Kann sein, dass ich den Fehler an der falschen Stelle suche.

Viele Grüße ...