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。