Discussion :

[zounar_j5]

Bonjour à tous. J’ai un nouveau problème. Il y a plusieurs années, j’avais téléchargé ce programme : MessageBox_HiA sur DELPHICOOL, pour créer des boites de dialogue, il fonctionnait très bien, mais avec Delphi 2010, je me suis confronté à un problème que j’ai pu résoudre assez facilement, mais maintenant, j’ai un autre problème avec.
Ce qui est bien avec ce programme, c’est qu’on peut personnaliser sa boite, titre, icones….
Voilà mon problème : j’ai 2 boutons radio, 1 – Fichier A. 2 – Fichier B. Je mets dans une variable Fichier : string ; , soit le fichier A ou le fichier B.
Quand j’exécute le programme, je teste la présence du fichier A ou B. si ils n’existent pas, je voudrais mettre dans cette boîte de dialogue ’Le fichier ‘+fichier+’ n’existe pas’

Code généré par le programme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
var MaMessageBox : Integer  
 
Begin
 
    MaMessageBox := MessageBoxA(0,Pchar('Le fichier n''existe pas.'),Pchar('Fichier '),0 + MB_ICONINFORMATION + 0);

J’avais une erreur de compilation, après avoir enlevé les Pchar, ça fonctionne très bien.

JE la modifie comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Var
Fichier, FichierA, FichierB : String;
 
If not(FileExists(Fichier)) Then
      Begin
        MaMessageBox := MessageBoxA(0, ('Le fichier'+Fichier+' est introuvable .'),
          ('Fichier '), 0 + MB_ICONEXCLAMATION + 0);

Et j’ai une erreur de compilation .
[DCC Erreur] Unit1.pas(153): E2010 Types incompatibles : 'string' et 'PAnsiChar'

[popo]

Dans ton premier exemple, tu as une chaine en dur qui est directement traduite dans le bon type, donc tu n'as pas besoin de faire la conversion.
Dans le deuxième, tu les déclares explicitement en String, il faut donc faire une conversion.

PAnsiChar(Fichier).
Ou PAnsiChar(AnsiString(Fichier)).

[ShaiLeTroll]

Est-il pertinent d'utiliser MessageBoxA dans un Delphi Unicode comme Delphi 2010 ?
Il semble évident de passer à MessageBoxW si l'on veut rester dans l'API Windows mais la VCL contient depuis des années, au moins Delphi 3, la fonction MessageDlg qui ne justifie pas l'utilisation de MessageBoxW
Voir L’art et la manière de créer des boîtes de messages rapidement

Il existe MessageDlg qui est plus simple et très similaire
Il existe TTaskDialog encore plus évolué mais ça doit être des Delphi plus récents, d'ailleurs, c'est bien Delphi 2010 et non Delphi 10, la confusion étant possible

Je ne vois pas l'intérêt de MessageBox_HiA, c'est un générateur de code de MessageBoxA, euh ... ça doit prendre plus de temps à utiliser le générateur qu'à écrire le code soit-même.
Ecrire le code d'un MessageBoxA ou d'un MessageDlg est tellement trivial qu'un générateur de code n'apporte rien, pire il habitue à ne pas comprendre ce que l'on fait !

utiliser un Format pour être plus lisible

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   MaMessageBox := MessageBoxW(0, PChar(Format('Le fichier %s est introuvable .', [Fichier])), PChar('Fichier '), MB_ICONEXCLAMATION);

Encore plus simple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   MessageDlg(Format('Le fichier %s est introuvable .', [Fichier]), mtWarning, [mbOK], 0);