如何使用 Delphi 在 ShowMessage 中居中對齊文本？

Question

如何在 Delphi 的ShowMessage框中居中對齊文本？

我有兩條線，希望它們都水平居中對齊。 這甚至可以通過標准的ShowMessage對話框實現嗎？

Answer 1

您可以使用CreateMessageDialog過程：

procedure TmyFRM.btn_messageClick(Sender: TObject);
Var
  i: Integer;
Begin
  With CreateMessageDialog('Your message to display!!', mtInformation, [mbOk], mbOk) do
  Try
    for i := 0 to ControlCount - 1 do
      if Controls[i] is TLabel then
        With Controls[i] as TLabel do Begin
          Font.Name := 'Fjalla One';
          Font.Size := 12;
          Alignment := taCenter;
        End;
    ShowModal;
  Finally
    Free;
  End;
End;

通過此過程，您可以控制消息框，例如，如果您不使用ControlCount和Controls[i]查找Label ，則可以為整個 window 設置屬性，例如更改“確定”按鈕字體，更改 Z67B55Z13A和.....