TCustomControl parent Farbe herausfinden.

[snow]

Hallo

ich benötige die farbe der Form oder der Frame oder des Panels auf dem sich meine von TCustomControl abgelietete Komponente befindet. Parent.color gibts leider net.

gruß snow

[Muetze1]

Hast du denn auch entsprechend einen Typecast durchgeführt?

[snow]

Folgendes geht:

FColor:=(parent as Tpanel).color; aber hier gehe ich ja davon aus, dass es ein panel ist. Was wenn es eine Form ist.

gruß snow

[DeddyH]

Das kannst Du sowieso vergessen, sobald XPMan ins Spiel kommt.

[Muetze1]

Aber mal eine andere Frage: Warum setzt du nicht einfach ParentColor auf true in deinem Constructor und veröffentlichst die Color sowie ParentColor Eigenschaft einfach nicht?

[bitsetter]

Zitat von snow:

Folgendes geht:

FColor:=(parent as Tpanel).color; aber hier gehe ich ja davon aus, dass es ein panel ist. Was wenn es eine Form ist.

gruß snow

Delphi-Quellcode:

type
  TMyControl = class(controls.TControl);
...
  FColor:= TMyControl(Parent).Color;
...

Die Eigenschaft Color wurde von TControl abgeleitet.

[DeddyH]

Wie bereits gesagt: das bringt aber bei Verwendung von XPMan nichts mehr. Beispiel: Ein Panel auf die Form mit Color clBlue, da die Komponente drauf, Programm ohne XPMan gestartet, alles super. Dasselbe mit XPMan, das Panel ist nicht mehr blau, wohl aber die Komponente. Hab ich auch schon alles durch

[bitsetter]

Wenn man es unbedingt farbig haben möchte, dann kann man ja das Theme für das Panel deaktivieren wenn man XPMan benutzt.

[DeddyH]

Das ist dann aber keine Sache der Komponente.

[bitsetter]

Zitat von DeddyH:

Dasselbe mit XPMan, das Panel ist nicht mehr blau, wohl aber die Komponente. Hab ich auch schon alles durch

Das ist aber nur dann der Fall wenn die Eigenschaft ParentBackground des Panels aktiviert ist.