![]() |
Color von dynamisch erzeugtem TPanel
Hi,
habe ein kleines, aber seltsames Problem. Ich erstelle zur Laufzeit ein TPanel und will dessen Hintergrundfarbe ändern. Aus irgend einem Grund klappt das aber nicht. Code:
Delphi-Quellcode:
Jemand eine Idee?
procedure TForm1.test();
var pnlHeader : TPanel; begin pnlHeader := TPanel.Create(self); pnlHeader.Parent := pnlContainer; pnlHeader.ParentColor := False; pnlHeader.Color := clRed; pnlHeader.Align := alTop; end; Danke! |
AW: Color von dynamisch erzeugtem TPanel
Wird es überhaupt angezeigt (also im richtigen Parent eingesetzt)?
Das ParentColor musst Du nicht ausschalten, das passiert durch das Setzen der Farbe automatisch. Ansonsten...? |
AW: Color von dynamisch erzeugtem TPanel
Jo das Panel wird angezeigt.
Ander Eigenschaften wie Border lassen sich auch ändern. Das mit der ParentColor habe ich mal explizit auf False gesetzt um sicher zu gehen... Echt strange :| |
AW: Color von dynamisch erzeugtem TPanel
So ungefähr muss das gehen und tuts bei mir auch :
Delphi-Quellcode:
Edit :
NewPanel := TPanel.Create (Self);
... NewPanel.Color := clBlue; ... Eventuell noch so was hinzufügen : NewPanel.Parent := form1; |
AW: Color von dynamisch erzeugtem TPanel
Hi, das Problem haben wir auch schon festgestellt, jedoch nicht lange verfolgt.
Wir hatten nachher das gleiche Testprojekt (.dpr+.pas+.dfm) auf 2 verschiedenen Rechnern mit Delphi 2010. Nachdem wir es kompiliert hatten (ohne etwas zu verändern) wurde bei dem einem Rechner eine RadioGroup farbig dargestellt und auf dem anderem default clBtnFace. Scheint irgendwas Windowsmäßiges oder vllt. eine Delphieinstellung zu sein. Du nutzt auch Delphi 2010, oder? |
AW: Color von dynamisch erzeugtem TPanel
Hi!
Ich habe Delphi 2009 hier (und Win7 32Bit). Also bei mir klappts das definitiv nicht: Habe ein neue Projekt erstellt und es gibt nur diesen Code:
Code:
Geht definitiv nicht...
procedure TForm1.Button1Click(Sender: TObject);
var pnlTest : TPanel; begin pnlTest := TPanel.Create(Form1); pnlTest.Parent := Form1; pnlTest.Width := 100; pnlTest.Height := 100; pnlTest.Color := clRed; end; |
AW: Color von dynamisch erzeugtem TPanel
Grpmf.
Es liegt an den "Laufzeit-Themes". Wenn ich diese aktiviere, funktioniert es. Allerdings ist dann da Problem, das PNG-Grafiken unsauber dargestellt werden. Was is da los? ^^ |
AW: Color von dynamisch erzeugtem TPanel
Set mal Doublebuffered auf True
|
AW: Color von dynamisch erzeugtem TPanel
Zitat:
|
AW: Color von dynamisch erzeugtem TPanel
Hi,
rufst Du auch das "Show" auf??
Code:
Gruß
procedure TForm1.Button1Click(Sender: TObject);
var pnlTest : TPanel; begin pnlTest := TPanel.Create(Form1); pnlTest.Parent := Form1; pnlTest.Width := 100; pnlTest.Height := 100; pnlTest.Color := clRed; pnlTest.Show; // <<------- end; Gerald |
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:56 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz