如何在Delphi 2010中将TPanel上的组件精准居中对齐？

设计时快速对齐（推荐） #

你之前只选中了TRichEdit和TButton，对齐操作仅在组件间生效，要实现相对于面板的居中，按以下步骤操作：

• 按住Shift键依次选中TRichEdit、TButton，最后选中TPanel（确保面板被包含在选中集合内）
• 打开对齐窗口：快捷键Ctrl+F7，或右键选中的组件→Align
• 在对齐窗口中设置：
  • 水平对齐：选择「窗口内居中」（英文为Center in window）
  • 垂直对齐：选择「窗口内居中」（英文为Center in window）
• 点击确定后，组件就会相对于面板完美居中

锚定属性实现动态居中（适配面板大小变化） #

如果需要面板尺寸改变时，组件始终保持居中，可设置每个组件的Anchors属性：

• 选中TRichEdit，在Object Inspector里找到Anchors，勾选akLeft、akRight、akTop、akBottom
• 对TButton做同样的锚定设置

注：锚定四个方向会让组件随面板缩放自动调整位置和大小，若想保持组件原有尺寸，可搭配Constraints属性限制宽高最大值

代码精确控制（运行时或设计时调试） #

若需要更精准的位置控制，可在Form的OnCreate或Panel的OnResize事件中添加代码：

procedure TForm1.FormCreate(Sender: TObject);
var
  TotalHeight: Integer;
  VerticalGap: Integer;
begin
  VerticalGap := 20; // RichEdit和Button之间的垂直间距
  TotalHeight := RichEdit1.Height + Button1.Height + VerticalGap;

  // 水平居中
  RichEdit1.Left := (Panel1.ClientWidth - RichEdit1.Width) div 2;
  Button1.Left := (Panel1.ClientWidth - Button1.Width) div 2;

  // 垂直居中（整体在面板内居中，保持组件间距）
  RichEdit1.Top := (Panel1.ClientHeight - TotalHeight) div 2;
  Button1.Top := RichEdit1.Top + RichEdit1.Height + VerticalGap;
end;

内容的提问来源于stack exchange，提问作者Onions Have Layers