ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Remplacer la barre de titre par un container et permettre le déplacement du form

	Description
Retour à la liste L'auteur eto_dermezel France Membre Simple # 0000000003 enregistré le 12/10/2004 http://etodermezel.no-ip.com/ 53 ans de la société YNEDY COMMUNICATION Fiche personnelle Note des membres pas de note	Contributions > 20 - Trucs et Astuces Remplacer la barre de titre par un container et permettre le déplacement du form # 0000000264 ajouté le 08/12/2005 11:03:03 et modifié le 08/12/2005 consulté 8702 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0 VFP 6.0
	Pour une appli, j'avais besoin de remplacer la barre de titre d'un form par un container contenant mes propres options. Ayant buté sur le fait d'offrir à l'utilisateur de déplacer le form via cette barre de tittre 'maison', voici ce que j'ai trouvé :
	Code source :
	créer Un objet de type container dont on glissera une occurrence sur le form concerné Une propriété : MoveForm Une propriété : mTop Une propriété : mLeft Une méthode : Get_Mouse_TL() LPARAMETERS _t,_l DECLARE INTEGER GetCursorPos IN user32.dll AS WinAPI_GetCursorPos STRING @ lcPOINT = REPLICATE(CHR(0), 8) lnReturn = WinAPI_GetCursorPos(@lcPOINT) _t= _StringToInteger(SUBSTR(m.lcPOINT, 5)) _l= _StringToInteger(LEFT(m.lcPOINT,4)) Sur le mousedown du container : LPARAMETERS nButton, nShift, nXCoord, nYCoord this.MoveForm = .T. LOCAL _t,_l _t=0 _l=0 this.Getmouse_tl(@_t,@_l) this.mLeft = _l - thisform.left this.mTop = _t - thisform.top Sur le MouseUp du container : LPARAMETERS nButton, nShift, nXCoord, nYCoord this.MoveForm = .F. Sur le MouseMove du container : LPARAMETERS nButton, nShift, nXCoord, nYCoord IF this.MoveForm=.T. LOCAL _t,_l _t=0 _l=0 this.Getmouse_tl(@_t,@_l) thisform.move(_l - this.mLeft, _t - this.mTop) ENDIF
	Commentaires
	le 19/06/2006, Ludo186 a écrit : Salut eto_dermezel C'est bien pratique mais ou est la fonction _StringToInteger ? Ludo186

Remplacer la barre de titre par un container et permettre le déplacement du form

Contributions > 20 - Trucs et Astuces