CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 11 05:14:46

EXPRESSION STUDIO 3 / SILVERLIGHT 3 par Matthieu MEZIL

MICROSOFT SECURITY ESSENTIALS : PETIT TEST par FREMYCOMPANY

ISA LE RETOUR par Isa

DROIDANALYTICS 1.1.4 : TRI DES TOPS PAR PAGES VUES OU VISITES par Nix

ET C'EST PARTI POUR SILVERLIGHT 3 ! par broux

AIDE par nori14

RE : CREER PAGE HTML par sawceno

CREER PAGE HTML par sawceno

THREAD par swadfish

RE : OPENGL ET LE ZBUFFER par f0xi

MESSENGER PLUS! LIVE (4.82.0.368)

MSN Messenger Plus! Live est l'add-on indispensable pour MSN Messenger et Windows Live Messenger....

Cliquez pour télécharger Messenger Plus! Live
Messenger Plus! Live (4.82.0.368)
XILISOFT DVD EN MP4 CONVERTISSEUR MAC (5.0.37.0709)

Xilisoft DVD en MP4 Convertisseur Mac permet de convertir facilement votre DVD en MP4, DivX, WMV ...

Cliquez pour télécharger Xilisoft DVD en MP4 Convertisseur Mac
Xilisoft DVD en MP4 Convertisseur Mac (5.0.37.0709)
RESEDIT (1.4.6)

ResEdit est un éditeur de ressources pour vos programmes Win32. Il vous permettra notamment d'int...

Cliquez pour télécharger ResEdit
ResEdit (1.4.6)
TODOLIST (5.8.7)

Pour organiser vos projets de programmation, un bon outil de planification est nécessaire. ToDoLi...

Cliquez pour télécharger ToDoList
ToDoList (5.8.7)
XNVIEW (1.96.2)

XnView est un outils puissant permettant de visualiser et convertir de nombreux format graphique ...

Cliquez pour télécharger XnView
XnView (1.96.2)

+ de logiciels à télécharger

1 468 212 membres
49 nouveaux aujourd'hui
15 054 membres club

Trouver une ressource

Trouvez une ressource parmi 40 112 codes, 1 305 083 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

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

Information sur la source

Catégorie :Trucs & Astuces Niveau : Initié Date de création : 02/09/2003 Date de mise à jour : 02/09/2003 18:42:02 Vu : 3 680

Auteur : crazyjoke

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Et bien voila comment désactiver le très désagréable bouton fermer (le X) de vos forms simplement !!!

Vive la programmation !!!!

Source

//Code de VB retranscris en delphi parmoi, crazy joke :-)
//--------------------------------------------------------------
procedure DesactiverX(Handle : HWND);
var
Tmp00: Cardinal;
Tmp01:HMENU;
begin
Tmp01 := GetSystemMenu(Handle,False);
Tmp00 := GetMenuItemCount(Tmp01);
RemoveMenu(Tmp01,Tmp00 - 1,1024);
RemoveMenu(Tmp01,Tmp00 - 2,1024);
RemoveMenu(Tmp01,Tmp00 - 3,1024);
RemoveMenu(Tmp01,Tmp00 - 4,1024);
end;

//Code de VB retranscris en delphi parmoi, crazy joke :-)
//--------------------------------------------------------------

procedure DesactiverX(Handle : HWND);
var
  Tmp00: Cardinal;
  Tmp01:HMENU;
begin
  Tmp01 := GetSystemMenu(Handle,False);
  Tmp00 := GetMenuItemCount(Tmp01);

  RemoveMenu(Tmp01,Tmp00 - 1,1024);
  RemoveMenu(Tmp01,Tmp00 - 2,1024);
  RemoveMenu(Tmp01,Tmp00 - 3,1024);
  RemoveMenu(Tmp01,Tmp00 - 4,1024);

end;

Conclusion

Et voila commentez si cela vous chante...

Sources du même auteur

PROJECTION 3D

INTRO À LA 3D AVEC GLSCENE

Toutes les sources de crazyjoke

Sources de la même categorie

IMAGE DANS UN TDBGRID par HAFTARIFOUAD

[ASTUCE] COMMENT VOIR UN ITEM, D'UNE LISTBOX, TRONQUÉ DANS U... par cirec

MESSAGEDLG PERSONNALISÉ par HAFTARIFOUAD

COMMENT DESSINER SUR UN TCANVAS LE TEXTE D'UNE FORMULE CHIMI... par pseudo3

COMPRENDRE UN PEU PLUS LES TABLEAUX EN RXRICHEDIT par ODLCITEINFO

Toutes les sources de la catégorie Trucs & Astuces

Commentaires et avis

Commentaire de Gotrek le 02/09/2003 22:59:06

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

Commentaire de Pascail le 03/09/2003 06:56:59

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 ;).

Commentaire de crazyjoke le 03/09/2003 08:30:36

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

Commentaire de supermig le 03/09/2003 10:13:41

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;

Commentaire de crazyjoke le 03/09/2003 10:45:41

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!

Commentaire de Glorkonline le 07/09/2003 11:40:20

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

Commentaire de Yoann le 07/09/2003 15:08:00

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);

Commentaire de piep14 le 03/06/2005 21:01:53

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