Discussion :

[souminet]

Bonjour à tous,
Voilà j'utilise un MessageBox avec 3 boutons comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TFArticle.Supprimer1Click(Sender: TObject);
var choix: integer;
begin
choix:=MessageBox(Handle, pchar('Voulez vous supprimer définitivement l''article en cours ?') , pchar('Modification Article'), 35);
     If choix=6 then     //si clic sur oui
     begin
      Datamodule2.TabArticle.Delete;
     end;
     If choix=7 then     //si clic sur non
     begin
      FSuppArt.showmodal;
     end;
     If choix=2 then     //si clic sur annuler
     begin
     end;
end;

Je voudrais néanmoins pouvoir écrire deux phrases (Sur 2 lignes)

Comment puis faire un retour de ligne avec un MEssageBox

Merci+++++++++++++++++++++

[andreditdd]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var choix: integer;
begin
choix:=MessageBox(Handle, pchar('Voulez vous supprimer définitivement l''article en cours ?' +
                           #10 + #13 + '2eme ligne.') , pchar('Modification Article'), 35);
     If choix=6 then     //si clic sur oui
     begin
      Datamodule2.TabArticle.Delete;
     end;
     If choix=7 then     //si clic sur non
     begin
      FSuppArt.showmodal;
     end;
     If choix=2 then     //si clic sur annuler
     begin
     end;
end;

Voici voilou en esperant que c'est ce que tu souhaite.

André

[souminet]

Merci c'est bon