Klasse mit Properties als Property

[sx2008]

Ausserdem muss auch die Methode TBackGround.Assign implementiert werden.
Der Objektinspektor muss unter Umständen eine Kopie des TBackGround Objekts erzeugen und benötigt daher die Assign-Methode.
Bei älteren Delphiversionen kam dann bei fehlender Implementation die Exception "Klasse Txyz kann Txyz nicht zugewiesen werden".
Möglich, dass die Exception in neueren IDEs abgefangen wird.

Delphi-Quellcode:

procedure TBackGround.Assign(Source:TPersistent);  {override}
begin
  if Source is TBackGround then
  begin
    FBackgroundAlignment := TBackGround(Source).FBackgroundAlignment;
    ...
  end
  else
    inherited;  // wichtig! darf nicht fehlen
end;

[Uwe Raabe]

Es könnte auch helfen, den Background von TComponent abzuleiten und als Subkomponente des Panels anzulegen (FBackground.SetSubComponent(true); ). Dann werden die Einstellungen nämlich automatisch auch in der DFM gespeichert. Der Objektinspektor wird dann den Background mit einem "+" darstellen, womit man an dessen Properties kommt. Da du die Deklaration von TBackgroundAlignment nicht mitlieferst, kann man dazu noch nichts sagen. Wenn es ein Aufzählungstyp ist, musst du den lediglich registrieren damit der ObjektInspektor damit klar kommt. Der Property-Editor für TBackground erübrigt sich damit.

[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!