Re: [perl-win32-gui-users] Drag-n-drop (was: Show In Taskbar)

[Johan L. <jp...@bo...>]

I wrote:
>Anyone have any idea of things I have to think about if I want to try to 
>implement a drag-n-drop feature? I have already found the correct set of 
>functions and messages in the Win32 Reference.

Ok, so I managed to tell a window to accept files dragged from the Explorer 
with the DragAcceptFiles() function (from the shell32.dll).

When I drag the mouse over the window, the mouse pointer changes. When I 
drop, the window is sent a WM_DROPFILES event.

My problem now is how I should capture this event.

Naive first try: timer which triggers really often. In the event handler I 
call
   $myWindow->PeekMessage(WM_DROPFILES, WM_DROPFILES)
and if it returns true, I call
   $myWindow->GetMessage(WM_DROPFILES, WM_DROPFILES)

That works like one in ten times or something. Clearly not the way to go.

So, any better way of detecting the WM_DROPFILES event?


/J

--
Johan Lindström, Sourcerer, Boss Casinos Ltd, Antigua
jp...@bo...