如何更改 MessageDlg 的按钮大小？

Question

我设法使用以下声明更改了我的 MessageDlg 的字体大小：

function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
                    Buttons: TMsgDlgButtons; HelpCtx: Integer): Integer;

以及以下实现：

function MyForm.MessageDlg(const Msg: string; DlgType: TMsgDlgType;
                           Buttons: TMsgDlgButtons; HelpCtx: Integer): Integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
    try
      Font.Size := 22;
      Result := ShowModal;
    finally
      Free;
    end
end;

问题在于按钮的大小（和对话框的大小）不会根据新的字体大小而改变。

有没有一种简单的方法可以根据我设置的字体大小调整对话框按钮的大小？

Answer 1

MessageDialog 使用Screen.MessageFont 进行消息和大小计算。

使用

  Screen.MessageFont.Size := 22;

在您致电CreateMessageDialog之前

您可能希望存储旧值并在发送消息后将其恢复。