Discussion :

[FOCUS77]

Bonsoir à tous,

je voudrai ajouter un commentaire (Label) pour dire à l'utilisateur qu'il peut utiliser 'Echap' à la place de 'Non' .

Code :

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

1
2
3
4
if QuestionDlg ('Nouveau Produit :','Ajouter un?',mtCustom,[mrYes,'Oui','IsDefault', mrNo, 'Non'],'')=mryes then
   begin
    ...
   end;

Des idées ?

Merci pour votre aide.

[Roland Chastain]

Bonjour !

Vous pourriez peut-être utiliser l'unité ThDialogs.

[gvasseur58]

Bonjour,

Le plus simple est de l'ajouter sous la question, non ?

Code :

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

1
2
3
4
if QuestionDlg ('Nouveau Produit :','Ajouter un ?'#13#10'(Vous pouvez aussi appuyer sur Echap. pour quitter.))',mtCustom,[mrYes,'Oui','IsDefault', mrNo, 'Non'],'')=mryes then
begin
//
end;

Cordialement,

Gilles

[FOCUS77]

Bonsoir à tous,

@RC

Effectivement ThDialogs m'a donné un résultat, cependant je ne suis pas parvenu à l'adapter entièrement à mes besoins.
par exemple je désire afficher le message au dessous des boutons.
de toutes façon je poursuivrai son étude.

@GV

Le plus simple est de l'ajouter sous la question, non ?

Le plus simple et le meilleur aspect.

Bonne proposition que je vais appliquer (la mienne était de remplacer 'Non' par 'Echap') .

Merci pour votre aide.

[FOCUS77]

Bonjour,

Avec la version 1.8 rc3 (je n'ai pas encore testé la rc4), TTaskDialog offre la possibilité de l'affichage de texte et de l'icône
en bas de la Dialog grâce à 'Footertext' et 'FooterIcon'.

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
17
18
19
20
21
22
23
24
25
26
27
28
procedure TForm1.Button1Click(Sender: TObject);
  begin
   with TTaskDialog.Create(self) do
    try
       Caption := 'Nouveau Produit';
      Title := 'Confirmer l''ajout';
      Text := 'Ajouter un?';
      Footertext:='Vous pouvez aussi appuyer sur Echap. pour quitter.';
      FooterIcon:=tdiInformation;
      CommonButtons := [];
      with TTaskDialogButtonItem(Buttons.Add) do
      begin
        Caption := 'Oui';
        ModalResult := mrYes;
      end;
      with TTaskDialogButtonItem(Buttons.Add) do
      begin
        Caption := 'Non';
        ModalResult := mrNo;
      end;
      MainIcon := tdiQuestion;
      if Execute then
        if ModalResult = mrYes then
          //code
    finally
      Free;
end;
end;

merci.