Commenter l'utilisation de QuestionDlg

Version imprimable

09/03/2017, 18h09
FOCUS77

Commenter l'utilisation de QuestionDlg
Bonsoir à tous,

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

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.
09/03/2017, 19h58
Roland Chastain

Bonjour !

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

Bonjour,

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

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

10/03/2017, 17h43
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

Citation:

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') .:oops:

Merci pour votre aide.

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:

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.