Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How I can move TopLevel Form without TitleBar?
Message
From
22/01/2001 12:23:28
 
 
General information
Forum:
Visual FoxPro
Category:
Forms & Form designer
Miscellaneous
Thread ID:
00465622
Message ID:
00466721
Views:
11
>Hi!
>
>I have seen all you mentioned. that code just do not work. I click on the form trying to drag it -> nothing happens. What might prevent that code from functioning properly?
>

Vlad,

If you don't get the other code to work, here's some code that should: (All VFP)

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.

HTH!
Fred
Microsoft Visual FoxPro MVP

foxcentral.net
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform