DÉSACTIVER LE BOUTON FERMER / X DE VOS FORMS EN QUELQUES LIGNES !!

Messages postés
5
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
17 octobre 2003
- - Dernière réponse : cs_mike255
Messages postés
123
Date d'inscription
mercredi 14 août 2002
Statut
Membre
Dernière intervention
26 mai 2007
- 26 mai 2007 à 14:14
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/12718-desactiver-le-bouton-fermer-x-de-vos-forms-en-quelques-lignes

Afficher la suite 
cs_mike255
Messages postés
123
Date d'inscription
mercredi 14 août 2002
Statut
Membre
Dernière intervention
26 mai 2007
-
Le mieux est de le mettre dans l'évènement OnCreate de la Form non?
mickaelmediaprod
Messages postés
3
Date d'inscription
dimanche 18 décembre 2005
Statut
Membre
Dernière intervention
16 janvier 2006
-
N'importe ou dans une procédure..
cs_piep14
Messages postés
345
Date d'inscription
lundi 15 mars 2004
Statut
Membre
Dernière intervention
13 mai 2011
-
Par exemple ce code :
EnableMenuItem(GetSystemMenu(Handle,FALSE),SC_CLOSE, MF_GRAYED);

Je le met ou dans mon code ???

Merci

Expliquer vous un peu plus pour les débutants !!! Merci
cs_Yoann
Messages postés
26
Date d'inscription
lundi 1 octobre 2001
Statut
Membre
Dernière intervention
28 juillet 2004
-
Il y a encore plus simple :

Griser le bouton "Fermer" d'une form :
EnableMenuItem(GetSystemMenu(Handle,FALSE),SC_CLOSE, MF_GRAYED);

Dégriser le bouton "Fermer" d'une form :
EnableMenuItem(GetSystemMenu(Handle,FALSE),SC_CLOSE, MF_ENABLED);
Glorkonline
Messages postés
42
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
1 janvier 2005
-
On peut faire çà très facilement !
procedure DesactiveX;
begin
TaForm.BorderIcons.biSystemMenu := False;
end;