Iames,
What you need to do is the following:
In the Init() of the form:
with This
.AddProperty("nMouse_X",0)
.AddProperty("nMouse_Y",0)
.AddProperty("nWindow_Top",0)
.AddProperty("nWindows_Left",0)
endwith
*
return
In the Mousedown() of the Form:
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*
if nButton=1
with This
.nMouse_X=Mcol(0,3)
.nMouse_Y=Mrow(0,3)
*
.nWindow_Top=.Top
.nWindows_Left=.Left
Endwith
Endif
*
return
In the MouseMove() of the form:
LPARAMETERS nButton, nShift, nXCoord, nYCoord
*
if nButton=1
With This
.Left=.Left-(.nMouse_X-MCol(0,3))
.Top=.Top-(.nMouse_Y-MRow(0,3))
*
.nMouse_X=Mcol(0,3)
.nMouse_Y=Mrow(0,3)
*
Endwith
Endif
*
Return
This will allow the left Mouse button to be clicked, held down and the form
to be dragged around the screen.
Hope this helps.
Dave Crozier
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf
Of Iames Pizzoli
Sent: 27 March 2007 18:35
To: Lista ProFox
Subject: VFP9: Dragging a top-level form around
Hi all,
I'm at my first try with a top-level form. I've set these form properties:
AutoCenter = .T.
BorderStyle = 2 - Fixed dialog
ShowWidow = 2 - As top-level form
TitleBar = 0 - Off
The form appears just like I want. BUT, without the title bar how can I let
the user move the form around, if s/he wants to? I must be missing something
obvious...
TIA
Iames
--
Email.it, the professional e-mail, gratis per te: http://www.email.it/f
Sponsor:
Tutto per il Modding PC: Case, Led, Neon, Ventole. Il tuo PC personalizzato
da noi conviene, visita il nostro sito
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=6123&d=27-3
[excessive quoting removed by server]
_______________________________________________
Post Messages to: [email protected]
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
