使 Windows 11 的 Application.Messagebox 外观现代化

Question

有没有一种方法可以使Application.MessageBox()Win11 中的对话框外观现代化？也许通过创建清单文件或其他东西来使经典桌面应用程序看起来更新？

Answer 1

一句话，不。

Application.MessageBox()调用 Win32 MessageBox()API，这是一个旧的对话框。

为了获得更新的外观，您需要使用Windows Vista 中引入的Win32任务对话框 APIMessageBox() ，而不是使用.

现代 Delphi 版本在单元中有一个TTaskDialog组件和TaskMessageDlg...()包装函数(Vcl.)Dialogs。但 Delphi 7 中不存在这些，因此您必须手动定义和导入任务对话框 API 类型和函数。