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;