delphi - Windows 11 の Application.Messagebox の外観を最新化する

Question

Application.MessageBox()ダイアログが Win11 でどのように見えるかを最新化する方法はありますか? マニフェスト ファイルなどを作成して、従来のデスクトップ アプリをより新しく見せることでしょうか?

Answer 1

一言で言えば、いいえ。

Application.MessageBox()MessageBox()古いダイアログであるWin32 API を呼び出します。

新しい外観を得るには、Windows Vista で導入された Win32 Task Dialog APIを使用する必要がありますMessageBox()。

最新の Delphi バージョンには、ユニット内にTTaskDialogコンポーネントとTaskMessageDlg...()ラッパー関数があります(Vcl.)Dialogs。ただし、これらは Delphi 7 には存在しないため、タスク ダイアログ API のタイプと関数を手動で定義してインポートする必要があります。