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?
>>Hi!
>>
>>It just dp npt works. I'm using Windows NT, VFP 6.0 SP3.
>>How I should run it to see how it works? Currently I'm trying to drag window, but it simple do not move at all...
>>
>>>>TopLevel Form and Screen.visible=.F.
>>>Alex
>>>
>>>Check out my form class in the File section of UT under classes.The number is 1291 I think, Look for "Cool shaped splash screen" and check out the mousedown event!
>>>
>>>No Titlebar, no move event, no show/hide code. Just API.
>>>
>>>
>>>Bernard
>
>
>Run splashdemo.prg
>
>This shows the form on screen.
>
>Now LEFT click and DRAG. Watch it move.
>
>To see the code look at the MOUSEDOWN() event
>
>* MOUSEDOWN
>LPARAMETERS nButton, nShift, nXCoord, nYCoord
>* Following code moves a TitleLess Window
>
>IF nButton = 1 && left mouse
> * GET WINDOW HANDLE
> * NOTE - Case is important in the Declare. MUST be exactly as shown!
> DECLARE INTEGER GetFocus in WIN32API
> lnHandle = GetFocus()
>
>
> mc001A = 274 &&H112%
> mc001C = -4078 &&HF012%
> Declare INTEGER ReleaseCapture in WIN32API
> Declare INTEGER SendMessage in WIN32API INTEGER, INTEGER, INTEGER, INTEGER
> bb=ReleaseCapture()
> bb=SendMessage(lnHandle, mc001A, mc001C,0)
>ENDIF
>
>
>That's all. Works for me in WIN 95,98 and NT4
Vlad Grynchyshyn, Project Manager, MCP
vgryn@yahoo.comICQ #10709245
The professional level of programmer could be determined by level of stupidity of his/her bugs
It is not appropriate to say that question is "foolish". There could be only foolish answers. Everybody passed period of time when knows nothing about something.