Vcl stilleri etkinleştirildiğinde uygulamamın mesaj kutusunu nasıl ciltleyebilirim?

Question

VCL uygulamasında iletileri göstermek için Application.MessageBox kullanıyorum, ancak uygulama vcl stili uygulandığında, geçerli pencere stili yerine pencere stili ile ileti penceresi gösterilir. Ben şimdiki vcl tarzı ile bir mesaj kutusu nasıl gösterilebilir?

Örnek kod

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

Örnek Resim

?

Answer 1

Application.MessageBox işlevi dahili olarak MessageBox WinAPi işlevini çağırır, bu pencere delphi tarafından oluşturulan bir form değildir, bu nedenle Vcl stilleriyle ciltlenemez. Bunun yerine, MessageDlg işlevi gibi Vcl.Dialogs biriminde bildirilen iletişim sınıfları ve işlevlerinden birini kullanmanız gerekir. Başka

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