Discussion :

[danykey]

Bonjour j'ai cette petite routine qui fonctionne très bien avec 2 boutons
mai j'aimerais en ajouter un troisième pour avoir 'OUI' 'NON' 'ANNULATION'
toutes mes tentatives ont échouées
pouvez vous m'aider , d'avance merci, bien cordialement.

(DELPHI7)

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
29
30
31
32
33
34
35
36
procedure TForm1.Button1Click(Sender: TObject);
var
msg:word;
begin
  with CreateMessageDialog('Voulez ajouter ',mtwarning, mbokCancel) do
 
     try
      Caption := 'AJout';
     TLabel(FindComponent('Message')).Font.Color := $00C08000;
      TLabel(FindComponent('Message')).Font.name :='times new roman';// 'Mistral';
      TLabel(FindComponent('Message')).Font.Style := [fsbold];
      TLabel(FindComponent('Message')).Font.Size := 10;
      TButton(FindComponent('Cancel')).TabOrder := 1;
 
      TButton(FindComponent('Cancel')).Caption := 'Annulation';
      TButton(FindComponent('Cancel')).Hint := 'cancel!';
      TButton(FindComponent('Cancel')).ShowHint := True;
 
      TButton(FindComponent('Ok')).Caption   := 'OUI';
      TButton(FindComponent('Ok')).Hint      := 'OUI !';
      TButton(FindComponent('Ok')).ShowHint  := True;
 
 
     // TButton(FindComponent('NO')).Caption := 'NON';
     // TButton(FindComponent('NO')).Hint := 'No';
     // TButton(FindComponent('all')).ShowHint := True;
 
     // TImage(FindComponent('Image')).Transparent := True;
     //  ImageList1.GetBitmap(10, TImage(Findcomponent('Image')).Picture.Bitmap);
      AnimateWindow(Handle,200, AW_CENTER);
      Position := poScreenCenter;
      msg := ShowModal; 
      Free;
   end;
    if msg=2 then exit ;
end;

[der§en]

Ceci pourrait peut-être t’aider : https://docwiki.embarcadero.com/Libr...TMsgDlgButtons

[ShaiLeTroll]

mbokCancel-> [mbOk, mbNo, mbCancel] pour utiliser un set libre au lieu des prédéfinies.

[Charly910]

Bonjour,

ou [mbNo, mbYes, mbCancel] pour Oui Non Annuler

Après tu pourras si tu veux changer les libellés des boutons, mais cela affiche les libellés standards

A+
Charly

[SergioMaster]

Bonjour,

après, il y avait quelques petits manques (finally)

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
29
30
31
32
33
34
35
36
procedure TForm1.Button1Click(Sender: TObject);
var msg:word;
begin
  with CreateMessageDialog('Voulez ajouter ',mtwarning, [mbok,mbno,mbCancel]) do
   try
      Caption := 'Ajout';

      TLabel(FindComponent('Message')).Font.Color := $00C08000;
      TLabel(FindComponent('Message')).Font.name :='times new roman';// 'Mistral';
      TLabel(FindComponent('Message')).Font.Style := [fsbold];
      TLabel(FindComponent('Message')).Font.Size := 10;
      TButton(FindComponent('Cancel')).TabOrder := 1;

       TButton(FindComponent('Cancel')).Caption := 'Annulation';
      TButton(FindComponent('Cancel')).Hint := 'cancel!';
      TButton(FindComponent('Cancel')).ShowHint := True;

      TButton(FindComponent('Ok')).Caption   := 'OUI';
      TButton(FindComponent('Ok')).Hint      := 'OUI !';
      TButton(FindComponent('Ok')).ShowHint  := True;


      TButton(FindComponent('No')).Caption := 'NON';
      TButton(FindComponent('No')).Hint := 'NON !';
      TButton(FindComponent('No')).ShowHint := True;

     // TImage(FindComponent('Image')).Transparent := True;
     //  ImageList1.GetBitmap(10, TImage(Findcomponent('Image')).Picture.Bitmap);
      AnimateWindow(Handle,200, AW_CENTER);
      Position := poScreenCenter;
      msg := ShowModal;
    finally
      Free;
    end;
    if msg=2 then exit ;
end;