为 Windows 11 更新 Application.Messagebox 的外观

Question

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

Answer 1

一句话，没有

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

为了更新外观，您需要使用 Windows Vista 中引入的 Win32 Task Dialog API，而不是使用 MessageBox().

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