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

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

示例代码

Application.MessageBox('Hello World','Hello',MB_OK + MB_ICON@R_60_4045@ION);

示例图像

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

解决方法

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

MessageDlg('Hello World',mt@R_60_4045@ion,[mbOK],0);