Klasse mit Properties als Property

[Ninow]

In der TBackgroundAlignment befindet sich nur:

Delphi-Quellcode:

type
  TBackgroundAlignment = (baStandard, baLeftToRight, baTopToBottom);

Das kann er mir ja auch anzeigen.

Also ich habe jetzt verschiedene Sachen probiert:

Das mit dem PropertyEditor bekomme ich irgendwie nicht hin, ausser das halt

Delphi-Quellcode:

  TBackGroundProperty = class(TPropertyEditor)
    //Was soll ich hier machen
  end;

@sx2008: TBackGround.Assign hab ich eingebaut, keine Veränderung.

@Uwe: Hab ich auch ausprobiert, hab

Delphi-Quellcode:

{...}
type
  TBackGround = class(TComponent)
    {...}
  end;
 
type
  TMyPanel = class(TPanel)
    private
      FBackGround: TBackGround;
      procedure SetBackGround(Value: TBackGround);
    published
      property BackGround: TBackGround read FBackGround write SetBackGround;
    public
      constructor Create(AOwner: TComponent); override;
  end;

{...}

constructor Create(AOwner: TComponent);
begin
  FBackGround.SetSubComponent(true);
  inherited;
end;

erstellt und auch installiert. Dann habe ich mein anderes Projekt aufgemacht wo ich mir das anschaue und da kommt jetzt Adressfehler. Also mach ich was falsch, aber was!?

Gruß Ninow

[Aphton]

Zitat von Ninow:

In der TBackgroundAlignment befindet sich nur:

Delphi-Quellcode:

type
  TBackgroundAlignment = (baStandard, baLeftToRight, baTopToBottom);

Das kann er mir ja auch anzeigen.

Also ich habe jetzt verschiedene Sachen probiert:

Das mit dem PropertyEditor bekomme ich irgendwie nicht hin, ausser das halt

Delphi-Quellcode:

  TBackGroundProperty = class(TPropertyEditor)
    //Was soll ich hier machen
  end;

@sx2008: TBackGround.Assign hab ich eingebaut, keine Veränderung.

@Uwe: Hab ich auch ausprobiert, hab

Delphi-Quellcode:

{...}
type
  TBackGround = class(TComponent)
    {...}
  end;
 
type
  TMyPanel = class(TPanel)
    private
      FBackGround: TBackGround;
      procedure SetBackGround(Value: TBackGround);
    published
      property BackGround: TBackGround read FBackGround write SetBackGround;
    public
      constructor Create(AOwner: TComponent); override;
  end;

{...}

constructor Create(AOwner: TComponent);
begin
  FBackGround.SetSubComponent(true);
  inherited;
end;

erstellt und auch installiert. Dann habe ich mein anderes Projekt aufgemacht wo ich mir das anschaue und da kommt jetzt Adressfehler. Also mach ich was falsch, aber was!?

Gruß Ninow

Bei Create steht der Klassenname nicht! Es müsste heißen
constructor TMyPanel.Create(..)
Eigne dir die Grundlagen an, falls du das nicht wusstest!
Weiters müsstet du im Konstruktor Speicher für das Feld FBackground allozieren...

[Ninow]

Ah,
wär ein Fehler den der Compiler melden würd sry habs vercheckt hinzuschreiben.
Natürlich muss die Klasse da stehen. Trotz alldem funktioniert es nicht.

Ach ja, >.< hab ich mal wieder im Eifer des Gefechts vergessen...

[Uwe Raabe]

Zitat von Ninow:

@Uwe: Hab ich auch ausprobiert, hab
...

Delphi-Quellcode:

constructor Create(AOwner: TComponent);
begin
  FBackGround.SetSubComponent(true);
  inherited;
end;

erstellt und auch installiert. Dann habe ich mein anderes Projekt aufgemacht wo ich mir das anschaue und da kommt jetzt Adressfehler. Also mach ich was falsch, aber was!?

So geht's:

Delphi-Quellcode:

constructor TMyPanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FBackGround := TBackGround.Create(Self);
  FBackGround.Name := 'Background';
  FBackGround.SetSubComponent(true);
end;

[sx2008]

Die Klasse TBackGround muss ausserdem noch registriert werden:

Delphi-Quellcode:

initialization
  RegisterClass(TBackGround);
end;

Ich glaube jetzt ham wir alle Vorrausetzungen:
* vom TPersistent ableiten
* Properties published deklarieren
* Assign-Methode überschreiben
* Klasse registrieren
Von TCompoent abzuleiten ist nicht norwendig.
Wie man sieht ist z.B. die Klasse TFont nicht von TComponent abgeleitet und man kann die Eigenschaften trotzdem im Objektinspektor editieren.

[Ninow]

Ah, dass hab ich garnicht gewusst, nja mein Projekt "eigene Komponenten" steckt noch in den Kinderschuhen. So einiges weiß ich auch noch nicht, muss ich noch ranglotzen! Danke euch!

[mjustin]

Zitat von himitsu:

TPersistent und Nachkommen > Standardsichtbarkeit = Published
TObjekt und Nachkommen (außer TPersistent) > Standardsichtbarkeit = Public
[/DELPHI]

Das kannte ich noch nicht, oder ist es ein Missverständnis? Macht der Compiler einen klassenabhängigen Unterschied bei der Sichtbarkeit?

Bisher war ich immer davon ausgegangen dass bei

Delphi-Quellcode:

TMeineKlasse = class(TIrgendwas) 
  Geheim: string;
end;

die Sichtbarkeit von "Geheim" immer published ist, unabhängig von der Vorfahrklasse.

Der Unterschied zeigt sich wenn man $M+ hinzufügt. Wenn TObject -> public gälte, würde $M+ der Klasse keine RTTI Informationen hinzufügen, bei TEgal -> published gälte, dann doch.

Mike