Delphi 2009 – 在运行时创建一个TPanel并改变其颜色

发布时间：2020-12-15 04:30:38 所属栏目：大数据来源：网络整理

导读：有一个奇怪的问题：我在运行时创建了一个TPanele并改变了它的颜色 – 然而,颜色仍然是clBtnFace. 这里的代码： procedure TForm1.Button1Click(Sender: TObject);var pnlTest : TPanel;begin pnlTest := TPanel.Create(Form1); pnlTest.Parent := Form1; pnl

有一个奇怪的问题：我在运行时创建了一个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;

有任何想法吗？谢谢！

解决方法

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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!