1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

ALT+F4

Signaler
Messages postés
6
Date d'inscription
samedi 16 novembre 2002
Statut
Membre
Dernière intervention
28 novembre 2002
 -
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
 -
Bonjour,
Quelqu'un saurait comment faire pour désactiver ALT+F4 sans empêcher d'utiliser Close;...
Merci...
adri1
A voir également:

3 réponses

Réponse 1 / 3
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
 1
Dans le OnCloseQuery de la fiche ajoute le code suivant :
Var DoitFermer:Boolean=False;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
CanClose:=DoitFermer;
end;

Dans le OnShow Ajoute :
procedure TForm1.FormShow(Sender: TObject);
begin
DoitFermer:=False;
end;

Et sur un bouton de fermeture :
procedure TForm1.Button1Click(Sender: TObject);
begin
DoitFermer:=True;
Close;
end;

--- :sleepy) Nono du Moulin :sleepy) ---
Réponse 2 / 3
Messages postés
6
Date d'inscription
samedi 16 novembre 2002
Statut
Membre
Dernière intervention
28 novembre 2002
Bonjour !
MeRcI...
Comment faire si mon bouton est sur une autre form stp ?
Merci :)
adri1
Réponse 3 / 3
Messages postés
962
Date d'inscription
mercredi 3 avril 2002
Statut
Membre
Dernière intervention
12 septembre 2006
 1
Ca ne change presque rien...

Declare "DoitFermer" dans la partie public de Form1 :
TForm1=Class(TForm)
...
public
{ Déclarations publiques }
DoitFermer:Boolean;
end;

Si le bouton est sur Form2 :
procedure TForm2.Button1Click(Sender: TObject);
begin
Form1.DoitFermer:=True;
Form1.Close;
end;

--- :sleepy) Nono du Moulin :sleepy) ---
Répondre Posez votre question