Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Moving form
Message
From
02/06/2001 23:36:03
 
 
To
02/06/2001 23:31:14
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Title:
Miscellaneous
Thread ID:
00514271
Message ID:
00514272
Views:
10
>Hi all:
>Iam giving a new look to my apps with textures, logos and screen wallpaper, but I want to remove the Forms title bar (this is easy) and the user still can move the form to other position with the mouse.
>Some one know how to do? I was trying with Thisform.Move and Mousemove, mousedown and other things without luck.
>
>Thanks In Advance
>
>Mauricio Flores Olmos

Easy. Add two properties to your form (XStart, YStart).

In the from MouseDown:
IF nButton=1
this.XStart = nXCoord
this.YStart = nYCoord
ENDIF

In the form MouseMove:
IF nButton=1
this.Left = nXCoord + OBJTOCLIENT(this,2) - this.xstart
this.Top = nYCoord + OBJTOCLIENT(this,1) - this.ystart
ENDIF

If you want to do this with a form that has a titlebar, just subtract the
titlebar size (SYSMETRIC(9)) from the above calculation for Top.
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform