Delphi 2009: crea un TPanel en tiempo de ejecución y cambia su color

delphi-2009

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í ''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; 

¿Algunas ideas? ¡Gracias!

Answer 1

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

Answer 2

Prueba esto :-)

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;