Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - farbiges Panel zur Laufzeit erzeugen
maniax - Mi 18.08.10 20:38
Titel: farbiges Panel zur Laufzeit erzeugen
Moin alle zusammen
ich stehe irgendwie auf'm Schlauch
Ich erzeuge zur Laufzeit (ButtonClick) mehrere panels
diese möchte ich gerne in der Farbe verändern aber irgendwie geht das nicht
bin für alle Ideen dankbar
Moderiert von 
Narses: Topic aus Delphi Language (Object-Pascal) / CLX verschoben am Mi 18.08.2010 um 21:09
platzwart - Mi 18.08.10 20:43
Einfach ein Color:= ClYellow; hinzufügen...
Marc. - Mi 18.08.10 20:43
Hi und :welcome: im Forum!
maniax hat folgendes geschrieben  : |
| diese möchte ich gerne in der Farbe verändern aber irgendwie geht das nicht |
"Geht irgendwie nicht" ist keine korrekte Fehlerbeschreibung. Was genau funktioniert nicht?
Du kannst Code hier direkt via Delphi-Tags [delphi
]Code[/delphi
] posten. :)
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
| begin
with TCustomPanel.Create(Form2) do
begin
SetBounds(iStartLinks, iPosStartOben, iEd7, iEd8);
Parent := Self; iStartLinks := iStartLinks + iEd7 + iEd11;
iStartPosObenHilf := iPosStartOben + iEd8 + iEd12;
end;
end; |
Die Eigenschaft
Color hat
platzwart ja bereits genannt.
maniax - Mi 18.08.10 21:01
ich habe das mit color getestet
auf die Idee bin ich aber auch schon gekommen
nur das Resultat ist das dann alles die Farbe ändert nur meine Panels nicht
Fehlermeldungen gibt es keine ich bekomme es nur nicht hin die einzufärben
platzwart - Mi 18.08.10 21:04
Hängt wohl damit zusammen, dass du das böse with-Konstrukt benutzt...
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
| myCustomPanel: TCustomPanel;
[...]
myCustomPanel:= TCustomPanel(Form2)Create;
myCustomPanel.SetBounds(iStartLinks, iPosStartOben, iEd7, iEd8);
myCustomPanel.iStartLinks := iStartLinks + iEd7 + iEd11;
myCustomPanel.iStartPosObenHilf := iPosStartOben + iEd8 + iEd12;
myCustomPanel.Color:= ClYellow; |
Marc. - Mi 18.08.10 21:41
| platzwart hat folgendes geschrieben : |
| Hängt wohl damit zusammen, dass du das böse with-Konstrukt benutzt... |
Nope.
Delphi-Quelltext
1:
2:
| Panel1.ParentBackground := False;
Panel1.Color := clRed; |
So sollte es aber gehen. :idea: :zwinker:
| DOH hat folgendes geschrieben: |
If ParentBackground is true, the control uses the parent's theme background to draw its own background. ParentBackground has no effect unless XP themes are enabled.
When XP themes are enabled ParentBackground defaults to true. To use the Color property to determine the background color of a control, set ParentBackground to false. This is done automatically if the Color property is changed at designtime. |
maniax - Do 19.08.10 08:45
moin moin
erstmal danke
ich habe die with Geschichte rausgeschmissen
und das mit myPanel versucht
das klappte zuerst auch nicht
aber nach Panel.ParentBackground wurde alles gut
Danke danke
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!