Color von dynamisch erzeugtem TPanel

[bwolf]

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:

procedure TForm1.test();
var
  pnlHeader : TPanel;
begin
    pnlHeader := TPanel.Create(self);
    pnlHeader.Parent := pnlContainer;
    pnlHeader.ParentColor := False;
    pnlHeader.Color := clRed;
    pnlHeader.Align := alTop;
end;

Jemand eine Idee?
Danke!

[stahli]

Wird es überhaupt angezeigt (also im richtigen Parent eingesetzt)?
Das ParentColor musst Du nicht ausschalten, das passiert durch das Setzen der Farbe automatisch.
Ansonsten...?

[bwolf]

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

[Hansa]

So ungefähr muss das gehen und tuts bei mir auch :

Delphi-Quellcode:

NewPanel := TPanel.Create (Self);
...
NewPanel.Color := clBlue;
...

Edit :

Eventuell noch so was hinzufügen :

NewPanel.Parent := form1;

[mleyen]

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?

[bwolf]

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:

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;

Geht definitiv nicht...

[bwolf]

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? ^^

[Bummi]

Set mal Doublebuffered auf True

[bwolf]

Zitat von Bummi:

Set mal Doublebuffered auf True

Danke für den Tipp, aber bringt leider nichts...

[GHorn]

Hi,

rufst Du auch das "Show" auf??

Code:

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;

Gruß
Gerald