Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
To move a form (the Moved event)
Message
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00398342
Message ID:
00398842
Views:
16
Hi Markus,

I have VFP version 6.0
I have the following code in the Moved event of my form.
----------
local nTop, nLeft, nBottom, nRight, lcTmpFormCaption, nhWnd

STORE 0 TO nTop, nLeft, nBottom, nRight
* Get the window handle of the form
lcTmpFormCaption=thisform.caption
thisform.caption="Move--"+thisform.caption
nhWnd = _WhTohWnd(_WFindTitl(thisform.caption))
thisform.caption=lcTmpFormCaption
= _GetWRect(nhWnd, @nTop, @nLeft, @nBottom, @nRight)

messagebox("the top is "+str(nTop))
------
The messagebox is only for the test. When I click on the title bar
of my form to move it, and at the first pixel moved without release
the mouse button, the messagebox of the Moved event appears.
Marc Levesque
La Prairie, Quebec (CANADA)
marc.levesque@videotron.ca
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform