更改 Windows 10 主题项目上的组件视觉行为答案

【问题标题】：Change component visual behavior on Windows 10 themed project更改 Windows 10 主题项目上的组件视觉行为
【发布时间】：2016-11-01 20:59:35
【问题描述】：

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

【问题讨论】：

哪个 Delphi 版本和 VCL 或 FMX 项目？您大概尝试过设置按钮的Height 属性？
VCL 项目。我知道按钮的高度属性，但是我在项目中有很多表单，手动操作会花费我很多时间。
IDE 中没有什么可以帮助您，因此 1) 在创建表单时遍历表单中的所有组件，并设置高度，或者 2) 创建一个简单的实用程序，通过所有 .dfm文件（假设它们处于文本模式）并在遇到按钮时再次更改其高度。我不知道你的技能水平，所以我必须警告你，2）如果你犯了错误，可能会把你的表格变成一场灾难。
Height 属性确定控件的高度。修改它。
我知道 Height 属性，但是所有项目的变化如何？我会手动做吗？

标签： delphi

【解决方案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;

【讨论】：

这也是一个不错的解决方案