delphi - vcl スタイルが有効になっているときにアプリのメッセージ ボックスをスキンするにはどうすればよいですか?

Question

VCL アプリケーションでメッセージを表示するために Application.MessageBox を使用していますが、アプリケーションに vcl スタイルが適用されていると、メッセージ ウィンドウが現在の vcl スタイルではなく Windows スタイルで表示されます。

サンプルコード

 Application.MessageBox('Hello World', 'Hello', MB_OK + MB_ICONINFORMATION);

サンプル画像

現在の vcl スタイルでメッセージ ボックスを表示するにはどうすればよいですか?

Answer 1

Application.MessageBox 関数は内部でMessageBox WinAPI 関数を呼び出します。そのウィンドウは Delphi によって作成されたフォームではないため、Vcl スタイルでスキンを適用することはできません。代わりに、関数のような Vcl.Dialogs ユニットで宣言されたダイアログ クラスと関数のいずれかを使用する必要がありますMessageDlg。

MessageDlg('Hello World',  mtInformation, [mbOK], 0);