Delphi 2009 - cree un TPanel en tiempo de ejecución y cambie su color

Question

tiene un problema extraño: creo un TPanele en tiempo de ejecución y cambio su color; sin embargo, el color sigue siendo clBtnFace.

Aquí está el código:

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; 

¿Alguna idea? ¡Gracias!

Answer 1

Cuando desee tener paneles de colores bajo un sistema operativo temático, debe establecer ParentBackground en False.

Answer 2

probar este :-)

procedure TForm1.Button1Click(Sender: TObject); 
var 
    pnlTest : TPanel; 
begin 
    pnlTest := TPanel.Create(Form1); 
    pnlTest.Parent := Form1; 
    pnlTest.Width := 100; 
    pnlTest.Height := 100; 
    pnlTest.ParentBackground := false; 
    pnlTest.Color := clRed; 
end;