我正在使用Application.Message
Box在我的VCL应用程序上
显示消息,但是当应用程序应用了vcl样式时,消息窗口将
显示为
windows样式而不是当前的vcl样式.
示例代码
Application.MessageBox('Hello World','Hello',MB_OK + MB_ICONINFORMATION);
示例图像
如何显示当前vcl样式的消息框？
Application.Message
Box函数在内部
调用
MessageBox WinAPi
函数,该窗口不是由delphi创建的表单,因此无法使用Vcl样式进行换肤.相反,您必须使用Vcl.Dialogs单元中声明的对话框类和
函数之一,如MessageDlg
函数.
MessageDlg('Hello World',mtInformation,[mbOK],0);
原文链接：https://www.f2er.com/delphi/101837.html
