Interdire la fermeture d'une application sur la réception de WM_CLOSE
to52274
Messages postés
2
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
30 septembre 2005
-
26 sept. 2005 à 20:53
to52274 Messages postés 2 Date d'inscription mercredi 29 juin 2005 Statut Membre Dernière intervention 30 septembre 2005 - 30 sept. 2005 à 23:42
to52274 Messages postés 2 Date d'inscription mercredi 29 juin 2005 Statut Membre Dernière intervention 30 septembre 2005 - 30 sept. 2005 à 23:42
2 réponses
cs_nitrique
Messages postés
344
Date d'inscription
jeudi 1 mai 2003
Statut
Membre
Dernière intervention
4 avril 2011
1
28 sept. 2005 à 17:56
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;
David, à VERSAILLES
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;
David, à VERSAILLES
to52274
Messages postés
2
Date d'inscription
mercredi 29 juin 2005
Statut
Membre
Dernière intervention
30 septembre 2005
30 sept. 2005 à 23:42
30 sept. 2005 à 23:42
Merci pour ta réponse, je vais l'essayer.
A+
A+
