Discussion :

[snoop94]

Bonjour à tous en ce lundi glacial!!

J'utilise Message Dlg pour une confirmation :

Code :

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

1
2
 
if MessageDlg('Vous allez modifier des enregistrements!Etes vous sur de continuer?', mtConfirmation, [mbYes, mbNo], 0) = mrYes

Mais je voudrais eviter que l'utilisateur puisse fermer cette fenetre en cliquant sur la traditionnel croix windows en haut a droite!!!!

Est ce que la croix correspond a une valeur?si oui laquelle?
Ou sinon peut on l'enlever de la fenetre?

Tchussss

[qi130]

La fermeture par la croix correspond à un MrCancel.

Si c'est ce code qui te revient, tu peux toujours relancer le MessageDlg...éventuellement avec un MessagDlg intermédiaire : "Merci de répondre par...."

[delphichem]

Crées ton propre MessageDlg:
Voici un code:

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
function MyMessageDlg(const Msg: string; DlgType: TMsgDlgType;
  Buttons: TMsgDlgButtons): integer;
begin
  with CreateMessageDialog(Msg, DlgType, Buttons) do
  try
    BorderIcons := BorderIcons - [biSystemMenu];
    Result := ShowModal;
  finally
    Free;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  if MyMessageDlg('Vous allez modifier des enregistrements!Etes vous sur de continuer?', mtConfirmation, [mbYes, mbNo] = mrYes then
    ShowMessage('Oui')
  else
    ShowMessage('Non');
end;

[snoop94]

Merci pour la fonction ca fonctionne impec!!!

[sjrd]

Ou plus simple, utiliser les MessageBox de Windows, par exemple par l'intermédiaire de ShowDialog (unité SjrdUsual de mon cru )