Icône MessageDlg incorrecte avec constante DlgType mtConfirmation?

Question

Dans Delphi 10.1.2 Berlin, dans une fonction Vcl.Dialogs.MessageDlg, les constantes DlgTypemtInformation et mtConfirmation créent la même icône de boîte de dialogue. Par exemple:

if Vcl.Dialogs.MessageDlg('Do you really want to remove the selected item?', mtConfirmation, mbOKCancel, 0) = mrOk then 
begin 
    RemoveTheSelectedItem; 
end; 

if Vcl.Dialogs.MessageDlg('Do you really want to remove the selected item?', mtInformation, mbOKCancel, 0) = mrOk then 
begin 
    RemoveTheSelectedItem; 
end; 

Mais ne doit pas la constante mtConfirmation affichage DlgType une icône marque question, (comme les autres DlgType constantes mtWarning et mtError créer chaque une icône différente)?

Comment puis-je obtenir un point d'interrogation icône avec la constante DlgTypemtConfirmation?

Answer 1

Il est dit dans le help:

Avoir mtConfirmation Afficher une question Mark

boîtes de dialogue de type TMsgDlgType.mtConfirmation montrent une icône d'information .

Dans le passé, ils ont utilisé pour montrer un point d'interrogation à la place, mais Microsoft enlevé le symbole de point d'interrogation de la fonction API Windows VCL utilise pour afficher les boîtes de dialogue TMsgDlgType.mtConfirmation. Citation de Microsoft: «L'icône de message de point d'interrogation n'est plus recommandée car elle ne représente pas clairement un type spécifique de message et parce que la formulation d'un message en tant que question peut s'appliquer à n'importe quel type de message. peut confondre le symbole symbole point d'interrogation avec des informations d'aide. " Pour utiliser l'apparence précédente de la boîte de dialogue , vous devez définir la variable UseLatestCommonDialogs de l'unité Vcl.Dialogs sur False.

donc ce code:

Vcl.Dialogs.UseLatestCommonDialogs := False; 
    if Vcl.Dialogs.MessageDlg('Do you really want to remove the selected item?', mtConfirmation, mbOKCancel, 0) = mrOk then 
    begin 
    RemoveTheSelectedItem; 
    end; 

produit ce résultat: