delphi - 标签标题在 ProgressBar 内的位置

Question

我想在进度条内放置一个标签。而且这个标签标题是动态的。如何使标签位置始终位于进度条内的中心？

我尝试过的；

  Label1.Parent := progressBar1;
  Label1Top :=  progressBar1.Height div 2;
  Label1.Left :=  progressBar1.Width div 2

它显示得很丑，而且不像我想要的那样位于中心。

如果我设置Label1.Left := progresBar1.Width div 2 - xxx，它将仅对于某些标题位于中心。我希望将任何标题放置在中心。

已编辑@KenWhite 的回答效果很好。@DavidHeffernan 的解决方案非常棒。

Answer 1

将标签的 AutoSize 属性设置为 False。将 Alignment 属性更改为 taCenter，将 Layout 更改为 tlCenter。将标签的大小设置为进度条的 ClientWidth 和 ClientHeight，并将其 Left 设置为 0。

Label1.Parent := progressBar1;
Label1.AutoSize := False;
Label1.Transparent := True;
Label1.Top :=  0;
Label1.Left :=  0;
Label1.Width := progressBar1.ClientWidth;
Label1.Height := progressBar1.ClientHeight;
Label1.Alignment := taCenter;
Label1.Layout := tlCenter;

这是外观示例: