Sujet Précédent Sujet Suivant

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

cs_Gotrek Messages postés 5 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 17 octobre 2003 - 2 sept. 2003 à 22:59
cs_mike255 Messages postés 120 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

cs_mike255 Messages postés 120 Date d'inscription mercredi 14 août 2002 Statut Membre Dernière intervention 26 mai 2007
26 mai 2007 à 14:14

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
28 déc. 2005 à 13:24

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
3 juin 2005 à 21:01

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 25 Date d'inscription lundi 1 octobre 2001 Statut Membre Dernière intervention 28 juillet 2004
7 sept. 2003 à 15:08

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 41 Date d'inscription samedi 24 mai 2003 Statut Membre Dernière intervention 1 janvier 2005
7 sept. 2003 à 11:40

On peut faire çà très facilement !
procedure DesactiveX;
begin
TaForm.BorderIcons.biSystemMenu := False;
end;

Utilisateur anonyme
3 sept. 2003 à 10:45

supermig>> Merci pour ton code je n'y avais pas pensé, tu devrai le proposer aussi sur VBFrance car, en fait, je me suis contenté de passer une source de ce dernier site en delphi.

Merci à vous tous et bonne prog!

supermig Messages postés 3 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 30 juin 2009
3 sept. 2003 à 10:13

Salut, pour faire cette manipu, il y a moins long :

procedure TaForm.FormCreate(Sender: TObject);
var hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
End;

Utilisateur anonyme
3 sept. 2003 à 08:30

Oui, merci pour vos commentaires mais le but de cet exemple est de "griser" le bouton en fait, et donc de désactiver son action!

@++

Cj

Pascail Messages postés 47 Date d'inscription jeudi 17 octobre 2002 Statut Membre Dernière intervention 24 mars 2007
3 sept. 2003 à 06:56

Et puis ossi dans l'event CloseQuery, Canclose := Fasle;
Comme quoi, y'a plein de façon d'empécher de fermer une form, soit metre du chuwing gome sur le bouton, soit couper les fils qui en partent ;).

cs_Gotrek Messages postés 5 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 17 octobre 2003
2 sept. 2003 à 22:59

Ou bien dans l'OnClose de ta form, Action := caNone;

Discussions similaires

fonction chaîne x fois le même caractère

Chat gratuit avec webcam et liaison BDD

Activer un bouton de commande

bannir du tchat

fermer boite de dialogue (j'ai déjà posé la question, mais impossible d'y arrive

Votre réponse

Discussions similaires