Question

如何设计delphi 窗体里面的组件居中

Answer 1

在窗体上放一个 TPanel ；
Panel1 的 Align 属性设为 alClient ；
需要自动居中的组件都放在 Panel1 上 ；
在 Panel1 的 Resize 事件写以下代码：
Button1.Left := round((Width - 8 - Button1.Width) / 2); //常量8用于处理边界问题
Button1.Top := round((Height - 8 - Button1.Height) / 2);

Answer 2

以BUTTON为例：

btn1.Left:=(form1.Width-btn1.Width) div 2;
btn1.Top:=(form1.Height-btn1.Height) div 2;