Interdire la fermeture d'une application sur la réception de WM_CLOSE
to52274
Messages postés2Date d'inscriptionmercredi 29 juin 2005StatutMembreDernière intervention30 septembre 2005
-
26 sept. 2005 à 20:53
to52274
Messages postés2Date d'inscriptionmercredi 29 juin 2005StatutMembreDernière intervention30 septembre 2005
-
30 sept. 2005 à 23:42
Salut à tous,
j'ai un gros soucis avec la gestion du message WM_CLOSE,
j'ai une appli qui lance une fenêtre modale, je veux que lorsque je tue
cette appli, celle-ci détruise uniquement ma fenêtre modale et laisse
mon appli tourner.
Or pour l'instant, j'intercepte WM_CLOSE mais mon appli se ferme.
cs_nitrique
Messages postés344Date d'inscriptionjeudi 1 mai 2003StatutMembreDernière intervention 4 avril 20111 28 sept. 2005 à 17:56
Un bon copier collé vaut mieux qu'un long discourt:
private
{ Déclarations privées }
procedure WMQueryEndSession(var Message: TWMQueryEndSession); message WM_QUERYENDSESSION; // Fermeture de session Windows
procedure TfrmMain.WMQueryEndSession(var Message: TWMQueryEndSession);
begin // Evenement de la fermeture de Windows
inherited;
peutFermer := true;
Self.Close();
end;
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if (peutFermer) then begin
// On quitte
end else begin
Action := caNone; // Empeche la fermeture
end;
end;
procedure TfrmMain.mnuQuitterClick(Sender: TObject);
begin
peutFermer := true;
Self.Close;
end;