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