BLOQUER LE DÉPLACEMENT D'UNE FORM

Signaler
Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
-
Messages postés
22
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
23 janvier 2009
-
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/11703-bloquer-le-deplacement-d-une-form

Messages postés
22
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
23 janvier 2009

Les deux possibilités sont intéressantes, cependant Bestiol il ne "suffit" pas de supprimer l'item de déplacement : ta solution à le mérite d'être "propre" mais ne fonctionne pas... si tu enlève le menu système de ton form.
Messages postés
41
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
1 janvier 2005

Super, la source ! Je l'utiliserai dans mon programme de verrouillage de l'ordinateur (bloquer le form quand il faut taper un pass, çà fait toujours plus beau !)
Messages postés
113
Date d'inscription
vendredi 16 août 2002
Statut
Modérateur
Dernière intervention
15 mai 2005

Salut!
t'as pas mis d'inherited, il me semble que c nécessaire, non ? enfin, evidemment, ss inherited, le programme doit pas changer de place puisqu'il recoit plus le message...
Messages postés
871
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
1
Salut !!
Il ya une autre solution pour bloquer la fenêtre... Je dis pas que c'est plus facile, mais c'est une suggestion :
Il "suffit" de supprimer l'item "Déplacement" du menu système de la form :

Procedure TForm1.FormCreate(Sender: TObject);
Begin
SysMenu := GetSystemMenu(Handle, False); //Récupère le handle du menu
DeleteMenu(SysMenu, Sc_Move, mf_ByCommand); //Supprime
//l'item "Déplacement" (SC_MOVE)
end;

Voilà... Peut-être certains utiliseront cette technique ?? ... Elle permet aussi de modifier le menu "a sa guise", avec ModifyMenu...

Bye... Bestiol

end;