Delphi 2009 - 在运行时创建TPanel并更改其颜色

Question

出现了一个奇怪的问题：我在运行时创建TPanele并更改其颜色 - 但是颜色仍然是clBtnFace。

这里的代码：

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; 

任何想法？谢谢！

Answer 1

当您想要在主题操作系统下有彩色面板时，您必须将ParentBackground设置为False。

Answer 2

试试这个:-)

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;