[TP][Turbo Vision] MessageBox

**sovo** · 15/08/2004, 17h36

Je voulais juste que quelqu'n m'explique comment fonctionne la fonction
"messagebox" .

En fait c au niveau des variables quelles prends en entrées que j'ai eu des problemes .

la fonction s'enoncant comme suit

Code :

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

  MessageBox(Msg:string; Params:pointer; Aoption:word);

mon Probleme c que je n'arrrive pas à donner les valeurs de Params .

Alors si quelqu'un connait comment ca marche qu'il fasse signe SVP...

Titre modifié par Hdd34
Merci de lire les règles du forum !

**M.Dlb** · 15/08/2004, 19h30

Merci de lire les règles du forum !

Et merci d'utiliser l'aide de ton compilateur. Dans l'aide on trouve :

Declaration:
function MessageBox(Msg: String; Params: Pointer; AOptions: Word):
Word;

Displays a 40-column, 9-line dialog box centered on the screen, containing
the formatted message passed in Msg, inserting parameters passed in Params.

AOptions contains some combination of the mfXXXX message flag constants,
determining which buttons appear in the message box. MessageBox uses the
FormatStr procedure to incorporate any parameters passed in Params into Msg.

Params sert à passer des paramètres à la boite de dialogue, donc autant dire que ca sert à rien... Si tu veux utiliser une boite de dialogue simple, je te conseillerais de mettre ce paramètre à nil.
Honnêtement, je n'ai aucune idée d'à quoi sert ce paramètre... Si quelqu'un veut bien m'éclairer...

a+

**Eric Sigoillot** · 15/08/2004, 20h59

La fonction MessageBox permet d'afficher un texte formaté. Autrement dit, on peut fournir des paramètres en plus d'une chaîne de référence, la fonction se chargeant de replacer les paramètres là où il faut dans la chaîne.
La syntaxe est celle adoptée par la procédure FormatStr L'aide de donnera plus de précisions que moi à ce sujet.

Voici un exemple d'utilisation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure ShowOpenCount(const FileName: string; OpenCount: Integer);
var
  Params: record
    pFile: Pointer;
    pCount: Longint;
  end;
begin
  Params.pFile := @FileName;
  Params.pCount := OpenCount;
  MessageBox('Le fichier %s a été ouvert %d fois', @Params, mfInformation or mfOKButton);
end;

Comme tu peux voir, la position des paramètres est précisée dans la chaîne par un "%" suivi du type du paramètre attendu ("s" pour un pointeur vers une chaîne, "d" pour un entier, etc...). Les paramètres sont souvent donnés par un enregistrement.

A+