delphi - 现代化 Windows 11 的 Application.Messagebox 的外观

Question

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

Answer 1

一句话，没有。

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

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

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