delphi - 当 vcl 样式激活时，如何为我的应用程序的消息框设置外观？

Question

我正在使用 Application.MessageBox 在 VCL 应用程序上显示消息，但是当应用程序应用了 vcl 样式时，消息窗口会以 windows 样式而不是当前的 vcl 样式显示。

示例代码

 Application.MessageBox('Hello World', 'Hello', MB_OK + MB_ICONINFORMATION);

示例图片

如何显示当前 vcl 样式的消息框？

Answer 1

Application.MessageBox函数内部调用MessageBox WinAPi 函数，该窗口不是由 delphi 创建的窗体，因此无法使用 Vcl 样式进行换肤。相反，您必须使用 Vcl.Dialogs 单元中声明的对话框类和函数之一，例如 MessageDlg 函数。

MessageDlg('Hello World',  mtInformation, [mbOK], 0);