Как выровнять текст по центру в ShowMessage с Delphi?

Question

Как выровнять текст по центру в пределах поля ShowMessage в Delphi?

У меня есть две линии, и я хочу, чтобы они обе были выровнены по горизонтали. Возможно ли это даже в стандартном диалоге 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;

с этой процедурой вы можете управлять вашим окном сообщения, например, если вы не ищете Label s, используя ControlCount и Controls[i], вы можете установить свойства для всего окна сообщения, такие как изменение шрифта кнопки «ОК», изменение цвета и .....