Come posso Skin della finestra di messaggio della mia app quando sono attivati ​​gli stili vcl?

Question

Sto utilizzando Application.MessageBox per mostrare i messaggi sulla mia applicazione VCL, ma quando l'applicazione ha uno stile vcl applicato, la finestra del messaggio viene mostrata con lo stile di Windows al posto dello stile corrente vcl.

Esempio codice

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

Sample Image

Come posso mostrare una finestra di messaggio con lo stile VCL attuale?

Answer 1

La funzione Application.MessageBox chiama internamente la funzione MessageBox WinAPi, quella finestra non è un modulo creato da delphi quindi non può essere scuoiato con gli stili Vcl. Invece è necessario utilizzare una delle classi di dialogo e le funzioni dichiarate nell'unità Vcl.Dialogs come la funzione MessageDlg.

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