Delphi如何实现窗体及所有组件随屏幕分辨率自动缩放适配

你现在逐行手动计算组件坐标、尺寸的写法，是没有利用开发工具自带布局能力的原始实现，完全不需要给每个组件单独写比例计算逻辑，用框架自带的几个基础功能就能实现全界面自动联动缩放，工作量能减九成以上，足够应付高中水平的项目需求。

1. 用锚点（Anchors）属性搞定基础自适应 #

从你贴的代码语法看是Delphi的VCL/FMX框架，这俩框架自带的Anchors属性不用写复杂计算就能实现相对位置固定：

• 锚点的作用是把组件的指定边和父容器对应边绑定，父容器尺寸变化时，组件和绑定边的相对距离会始终保持你设计时的数值
• 对应你写的btnStop布局需求：占面板宽度2/3、高度为自身宽度1/4、水平居中、底部留半高间距，只需要在可视化设计器里拖好btnStop的初始位置，把Anchors设为仅绑定底部[akBottom]，只需要在父容器的尺寸变化事件里写两行比例代码就行，不用手动算Top、Left值：

procedure TForm1.pnlGUIResize(Sender: TObject);
begin
  btnStop.Width := Round(pnlGUI.Width * 2/3);
  btnStop.Height := Round(btnStop.Width / 4);
end;

锚点会自动保持组件水平居中、和底部的间距不变，比你原来四行全量计算的代码逻辑简单很多，也不容易算错出偏移。

2. 用对齐规则+边距实现批量布局 #

整组组件排布不用挨个设坐标：

• 给组件设置Align对齐属性：alClient代表占满父容器剩余空间，alTop代表靠顶部撑满宽度，alLeft代表靠左撑满高度，alBottom代表靠底部撑满宽度
• 配合容器的Padding（容器内部留白）、组件的Margins（组件和周边元素的间距）属性，位置会自动计算，完全不用写Left、Top的赋值代码
• 举个例子：要在面板顶部放工具栏、底部放三个并排按钮，只需要把工具栏Align设为alTop，装三个按钮的子面板Align设为alBottom，三个按钮各自设Align为alLeft、配好左右Margins，缩放时会自动调整位置，零手动坐标计算。

3. 全局缩放最简实现 #

要适配不同分辨率屏幕，不用给每个组件单独定比例，按全局系数统一缩放就行：

• 设计界面时先固定一个基准分辨率（比如1920*1080），按舒服的大小摆好所有组件
• 窗体创建时记录父容器的基准宽高：DesignWidth := pnlGUI.Width; DesignHeight := pnlGUI.Height;
• 父容器尺寸变化时计算缩放系数：ScaleX := pnlGUI.Width / DesignWidth; ScaleY := pnlGUI.Height / DesignHeight;
• 遍历父容器下的所有组件，统一按缩放系数调整尺寸、位置、字体大小即可，不用给单个组件写特殊规则。

高中项目不用折腾复杂的第三方布局控件，上面三个原生功能足够覆盖绝大多数自适应需求，写的代码越少越不容易出现分辨率变化后组件错位、跑出屏幕的问题。

内容的提问来源于stack exchange，提问作者SlothsDontSleep