Discussion :

[yoghisan]

Voici ce que je fais :

Code :

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

1
2
3
4
5
6
7
  if MessageDlg('Voulez-vous faire un décodage de plan ou une recherche des classes d''équivalences ?'+#13
                +#13
                +'Oui = décodage de plan'+#13
                +'Non = classes d''équivalences',
                mtConfirmation, [mbYes, mbNo], 0) = mrYes
    then TypeExercice := 'p'
    else TypeExercice := 'ce';

Ben, j'aimerai avoir la même chose mais avec comme bouton directement les réponses au lieu de "oui" et de "non"

Comment je fais pour personnaliser les boutons d'un MessageDlg ?
ou
Existe-t-il une autre solution que de créer une nouvelle forme ?

Merci,

David.

[SubZero2]

Essaye avec ça :

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
function TMyForm.MessDiagRadio(Msg: string; var RadioValue: integer; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons): word;
var
  rad : TRadioGroup;
  frm : TForm;
begin
   frm := CreateMessageDialog(Msg, DlgType, Buttons);
   with frm do
   try
      // Ajout d'un radiogroup dans la boite de dialogue.
      rad := TRadioGroup.Create(frm);
      with rad do
      begin
         Parent := frm;
         Items.Add('premier radiobouton');
         Items.Add('deuxieme radiobouton');
         ItemIndex := 0;
         Caption := 'Que voulez-vous sauvergarder ? ';
         Top := 5;
         Left := 55;
         Height := 62;
         Width := 180;
      end;
      Height := rad.Top + rad.Height + 67;
      Width  := rad.left + rad.Width + 27;
      (FindComponent('Ok') as TButton).Caption := 'LE PREMIER BOUTON CAPTION';
      (FindComponent('Cancel') as TButton).Caption := 'LE DEUXIEME';
      (FindComponent('Ok') as TButton).Top := rad.Top + rad.Height + 10;
      (FindComponent('Cancel') as TButton).Top := rad.Top + rad.Height + 10;
      (FindComponent('Ok') as TButton).Left := 50;
      (FindComponent('Cancel') as TButton).Left := (FindComponent('Ok') as TButton).Left + (FindComponent('Ok') as TButton).Width + 20;
      Position := poScreenCenter;
      Result := ShowModal;
      RadioValue := rad.ItemIndex;
   finally
     Free;
   end;

[yoghisan]

Merci, avec ca, je vais pouvoir faire exactement ce que je voulais.

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
37
38
39
function MessageDglPersonnalise(Msg,MessageOk,MessageCancel: string; DlgType: TMsgDlgType): word;
var Form : TForm;
    Labeltemp: TLabel;
    LengthMessageOk, LengthMessageCancel : integer;
    BoutonOk, BoutonCancel: TButton;
    Ecart: integer;
begin
   Labeltemp := Tlabel.Create(nil);
   Labeltemp.Caption := MessageOk;
   LengthMessageOk := Labeltemp.Width;
   Labeltemp.Caption := MessageCancel;
   LengthMessageCancel := Labeltemp.Width;
   Labeltemp.Free;
 
   Form := CreateMessageDialog(Msg, DlgType, [mbOk,mbCancel]);
   try
     BoutonOk := TButton.Create(Form);
     BoutonOk := Form.FindComponent('Ok') as TButton;
     BoutonOk.Caption := MessageOk;
     BoutonOk.Width := 10+LengthMessageOk+10;
 
     BoutonCancel := TButton.Create(Form);
     BoutonCancel := Form.FindComponent('Cancel') as TButton;
     BoutonCancel.Caption := MessageCancel;
     BoutonCancel.Width := 10+LengthMessageCancel+10;
 
     Ecart := (Form.Width-(BoutonOk.Width+BoutonCancel.Width)) div 3;
     BoutonOk.Left := Ecart;
     BoutonCancel.Left := BoutonOk.Left+BoutonOk.Width+Ecart;
 
     Form.BorderIcons := [];
     Form.Position := poScreenCenter;
     Result := Form.ShowModal;
   finally
     BoutonOk.Free;
     BoutonCancel.Free;
     Form.Free;
   end;
end;

[WebPac]

Code :

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

1
2
3
 
     BoutonOk := TButton.Create(Form);
     BoutonOk := Form.FindComponent('Ok') as TButton;

Salut, je sais que le sujet est vieux, mais c'est pour faire une précision.
Il ne faut pas que tu crées un bouton, il est déjà créé auparavant. En fait ce code créé un bouton dans le vide (il n'a pas de parent donc non visible, il n'a pas de caption donc il n'y a pas écrit OK dessus, ...) référencé par BoutonOk, puis tu vas référencer le bouton OK de la form par BoutonOk, ainsi l'ancien bouton créé n'est plus référencé.

Il suffit de faire directement

Code :

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

     BoutonOk := Form.FindComponent('Ok') as TButton;

Sans créer d'autre bouton au préalable.