>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