BLOQUER LE DÉPLACEMENT D'UNE FORM
cs_Bestiol
Messages postés
833
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
3 novembre 2005
-
6 janv. 2002 à 01:27
Psychik Messages postés 22 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 23 janvier 2009 - 23 janv. 2009 à 11:10
Psychik Messages postés 22 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 23 janvier 2009 - 23 janv. 2009 à 11:10
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
https://codes-sources.commentcamarche.net/source/11703-bloquer-le-deplacement-d-une-form
23 janv. 2009 à 11:10
13 sept. 2003 à 19:55
6 août 2003 à 15:52
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...
6 janv. 2002 à 01:27
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;