Discussion :

[gsmdu62]

voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.Image4Click(Sender: TObject);
begin
if MessageDlg('Voulez vous vraiment effacer cet enregistrement ?',
mtWarning,[mbYes,mbNo],0)=mrYes then
begin
MessageDlg('Enregistrement effacé',mtInformation,
[mbOk],0);
Close;
end;

comment mettre le focus sur le bouton NON pour que l'utilisateur n'efface pas par megarde ?

[Laurent Dardenne]

Salut,
voici une solution :

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
 
function DefMessageDlg(const aCaption: string; const Msg: string; DlgType: TMsgDlgType;
 Buttons: TMsgDlgButtons; DefButton: Integer; HelpCtx: Longint): Integer;
//Crée une fenêtre de dialogue en précisant le bouton actif.
//Exemple avec le bouton non par défaut
//if DefMessageDlg('Voulez-vous le supprimer ?', mtConfirmation, mbYesNoCancel, mrno, 0) ...
var
 i: Integer;
 btn: TButton;
begin
 with CreateMessageDialog(Msg, DlgType, Buttons) do
 try
   Caption := aCaption;
   HelpContext := HelpCtx;
   for i := 0 to ComponentCount - 1 do
   begin
     if Components[i] is TButton then
     begin
       btn := TButton(Components[i]);
       btn.default := btn.ModalResult = DefButton;
       if btn.default then
         ActiveControl := Btn;
     end;
   end;
   Result := ShowModal;
 finally
   Free;
 end;
end;

[tourlourou]

en répondant un peu à côté :
si tu utilises MessageBox, tu peux définir le bouton focalisé, par exemple :
MB_OKCANCEL + MB_DEFBUTTON2
mais tu n'as pas l'icône du MessageDlg...

et e code de Laurent Dardenne est parfait !