DÉSACTIVER LE BOUTON FERMER / X DE VOS FORMS EN QUELQUES LIGNES !!
cs_Gotrek
Messages postés5Date d'inscriptionsamedi 18 janvier 2003StatutMembreDernière intervention17 octobre 2003
-
2 sept. 2003 à 22:59
cs_mike255
Messages postés120Date d'inscriptionmercredi 14 août 2002StatutMembreDernière intervention26 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.
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és3Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention30 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;
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és47Date d'inscriptionjeudi 17 octobre 2002StatutMembreDernière intervention24 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és5Date d'inscriptionsamedi 18 janvier 2003StatutMembreDernière intervention17 octobre 2003 2 sept. 2003 à 22:59
Ou bien dans l'OnClose de ta form, Action := caNone;
26 mai 2007 à 14:14
28 déc. 2005 à 13:24
3 juin 2005 à 21:01
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
7 sept. 2003 à 15:08
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);
7 sept. 2003 à 11:40
procedure DesactiveX;
begin
TaForm.BorderIcons.biSystemMenu := False;
end;
3 sept. 2003 à 10:45
Merci à vous tous et bonne prog!
3 sept. 2003 à 10:13
procedure TaForm.FormCreate(Sender: TObject);
var hMenuHandle : HMENU;
begin
hMenuHandle := GetSystemMenu(Handle, FALSE);
if (hMenuHandle <> 0) then
DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND);
End;
3 sept. 2003 à 08:30
@++
Cj
3 sept. 2003 à 06:56
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 ;).
2 sept. 2003 à 22:59