如何在重绘之前防止黑色背景受到控制？

Question

屏幕截图是在窗口激活期间拍摄的。可以看出，一些控件首先被绘制为黑色背景。这些是 TCheckBox、TButton、TStringGrid。我希望控件下的黑色区域具有 clBtnFace 形式的颜色。我该如何解决这个问题？

编辑： 它发生在 VCL、Delphi 10.3.3、Windows 10 中。 通过窗口激活，我的意思是应用程序已经在运行并被最小化到任务栏。只有很多控件放在表单上。可以看到有 7 个 TPanel，大约 60 个 TEdits，在它们旁边有大约 60 个 TLabels 尚未绘制，其余的黑色背景是几个 TCheckBoxes，TButtons 和一个空的 TStringGrid。

用空表格进行测试，放置一个 TPanel 并在其上放置 300 个 TEdit，行为相同。因此，某些控件首先用黑色背景绘制是设计使然。那么如何将默认背景颜色更改为其他颜色呢？

编辑2： 使用 400 个 TPanel 进行测试。这些按预期绘制，没有将 TPanel 下的 Rect 设置为黑色。

编辑3： 不幸的是，1000 TPanel 的表单重绘速度足够慢，所以我能够观察到黑色背景。

这是我用来测试控件的代码：

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.ExtCtrls, Vcl.StdCtrls;

const
  ControlsNum=800;
  Columns=40;

type
  TControlTestList=array of TButton;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    var CList:TControlTestList;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  i:integer;
  W,H:integer;
begin
  Self.Width:=1400;
  Self.Height:=800;
  W:=Self.ClientWidth div Columns;
  H:=Self.ClientHeight div (ControlsNum div Columns);
  SetLength(CList,ControlsNum);
  for i:=0 to ControlsNum-1 do
  begin
    CList[i]:=TButton.Create(Self);
    with (CList[i] as TButton) do
    begin
      Parent:=Self;
      Top:=H*(i div Columns);
      Left:=W*(i mod Columns);
      Width:=W;
      Height:=H;
      Caption:=IntToStr(i);
    end;
  end;

end;

procedure TForm1.FormDestroy(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to Length(CList)-1 do FreeAndNil(CList[i]);
  SetLength(CList,0);
end;

end.

编辑4： 在 Windows 10 上：在任何类型的表单调整大小期间，控件下的黑色背景都不会出现。只有当窗口的极简化并把它带回来时。 在 Windows 8.1 上：调整窗体大小时也会出现黑色背景。

Answer 1

试试这个：

interface

  TForm1 = class(TForm)
  ....
  protected
    procedure CreateParams(var Params: TCreateParams); override;
  public
  ....
  end;


implementation

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
    inherited;
    Params.WindowClass.hbrBackground := COLOR_BTNFACE + 1;
end;