delphi tabcontrol上的多个buttion 怎么居中

在Delphi的TabControl上添加按钮并使其居中，通常需要处理TabSheet的外观和控件的位置设置。以下是步骤：

1. **创建按钮**：
首先，在TabControl的某个TabPage上，通过`New`操作创建Button组件。

var
  Button: TButton;
begin
  Button := TLabel.Create(TabPage1);
  Button.Parent := TabPage1;
end;

2. **设置样式**：
可能需要将按钮的Style属性设为`bsCentered`，以便它默认居中显示。如果需要自定义样式，可以调整其Appearance属性。

Button.Style := bsNormal; // 或者 bsCentered
Button.Appearance.Font.Color := clWindowText; // 自定义字体颜色等

3. **定位按钮**：
如果希望按钮完全居中，可以在Form或TabPage的OnPaint事件中手动计算位置。例如，可以通过测量控件大小和TabPage的大小来确定：

procedure TForm1.TabPage1Paint(Sender: TObject);
var
  Left, Top, Width, Height: Integer;
begin
  Left := (TabPage1.Width - Button.Width) div 2;
  Top := (TabPage1.Height - Button.Height) div 2;
  Button.Left := Left;
  Button.Top := Top;
end;

确保在Form的Load或AfterConstruct事件中将此事件绑定到对应TabPage上。