Как я могу очистить окно сообщения моего приложения при активации стилей vcl?

Question

Я использую Application.MessageBox для отображения сообщений в моем приложении VCL, но когда к приложению применен стиль vcl, окно сообщений отображается со стилем windows вместо текущего стиля vcl.

Пример кода

 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);