Discussion :

[Just-Soft]

Bonjour !

en 1er voici un bout de code susceptible de fermer mon application si je clique sur le fameux "x" de la fenêtre windows :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('Quitter GEXPLOITE DESK ?', mtConfirmation,
    [mbYes, mbNo], 0, mbYes)= mrYes then
  begin
    Action := caFree;
    Close;
  end;{ fermer et quitter }
end;

mais ce que j'ai est tout à fait le contraire de ce que je souhaite ! en cliquant sur "Oui" rien ne se passe alors qu'on cliquant sur le "Non" l'application se ferme !
que dois-je comprendre ?

pour info, je suis sous windows 8 et je développe avec Delphi 2010.

Merci par avance.

[tourlourou]

Code :

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

1
2
3
4
5
6
procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if MessageDlg('Quitter GEXPLOITE DESK ?', mtConfirmation, [mbYes, mbNo], 0, mbYes)<> mrYes 
  then Action := caNone // empêchera la fermeture
  else Action := caFree;
end;

[Just-Soft]

merci tourlourou
sur la base de votre proposition, le code est devenu ainsi :

Code :

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

1
2
3
4
5
6
7
procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  case MessageDlg('Quitter GEXPLOITE DESK ?', mtConfirmation, [mbYes, mbNo], 0, mbYes) of
    mrYes : Action := caFree;
    //mrNo : Action := caNone;
  end;
end;

à ma surprise le

Code :

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

mrNo : Acction := caNone

a déclaré une erreur inattendu.

Ma seconde question et qui n'a rien à voir avec celle-la concerne l'étirement d'un panel. Au fait, j'ai deux panels un contenu dans un autre. Le second sert comme afficheur d'un objet OLE cartographique, sur la gauche un autre panel et entre les deux un splitter pour redimensionner la vue selon besoin. Sauf que quand je déplace le splitter mon panel carto se déplace sans qu'il prends la totalité de la zone dédiée bien qu'il soit positionné à alClient.

Avez vous une idée sur la nature de ce problème ? Si oui, merci d'y répondre dans cette discussion !

[retwas]

Sinon tu peux utiliser l’événement CloseQuery et tu joues avec "CanClose"

Code :

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

CanClose := MessageDlg('Quitter GEXPLOITE DESK ?', mtConfirmation, [mbYes, mbNo], 0, mbYes) = mrYes;