Delphi 12.3/13设计时如何仅调整控件位置以增加间距？

首先明确：Delphi 12.3或13的原生IDE里，没有直接提供一键“Spread controls”这类批量增大所有控件间距且不改变控件大小的功能，但有几种可行的解决办法：

一、设计时批量处理方案 #

1. 第三方IDE插件 #

用GExperts、CnPack这类常用Delphi开发插件，它们自带批量控件操作工具：

• 比如GExperts的「Align Controls」工具，支持选中多个控件后，设置水平/垂直方向的固定间距，甚至能对整个窗体的控件进行统一调整；
• 这类插件还能遍历项目中所有窗体，帮你一次性完成所有窗体的控件间距调整，不用逐个窗体手动操作。

2. 自定义OTA脚本 #

借助Delphi的Open Tools API（OTA）编写脚本，自动遍历项目内的所有窗体，逐个调整控件的Left/Top属性（保持Width/Height不变）。核心逻辑是递归遍历每个窗体及其容器控件内的所有子控件，按需求增加位置偏移量。

二、备选：运行时调整方案 #

如果设计时的方案暂时无法实现，可以用运行时代码统一处理，在窗体创建时自动调整间距：

procedure AdjustControlsSpacing(AControl: TWinControl; const HOffset, VOffset: Integer);
var
  I: Integer;
  Ctrl: TControl;
begin
  for I := 0 to AControl.ControlCount - 1 do
  begin
    Ctrl := AControl.Controls[I];
    // 仅调整位置，保留控件原有大小
    Ctrl.Left := Ctrl.Left + HOffset;
    Ctrl.Top := Ctrl.Top + VOffset;
    // 递归处理容器控件内的子控件
    if Ctrl is TWinControl then
      AdjustControlsSpacing(TWinControl(Ctrl), HOffset, VOffset);
  end;
end;

在每个窗体的OnCreate事件中调用：

AdjustControlsSpacing(Self, 6, 6); // 这里的6是你需要增加的水平/垂直间距值，可按需修改

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