在Windows 10主题项目上更改组件可视行为

Question

我有一个特定的可视组件，我想改变他对我的项目的行为。我在我的项目中使用Windows 10主题，这改变了可视组件的行为。我在编辑内部有按钮，但它们的高度超出了编辑高度。我想要做的就是为项目中的所有按钮减少1或2像素的高度。

Answer 1

您可以为所有表单调用此函数（例如，当您创建或显示它们时）

procedure ResizeButtons(F: TForm; DH: Integer);
var
  I: Integer;
begin
  for I := 0 to F.ComponentCount - 1 do
    if (F.Components[I] is TButton) then
      TButton(F.Components[I]).Height := TButton(F.Components[I]).Height + DH;
end;

...

procedure TForm1.FormShow(Sender: TObject);
begin
  ResizeButtons(Self, -1);
end;