当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);