Results 1 to 5 of 5
Thread: drag & drop windows
Hybrid View
-
24th February 2007 13:12 #1Registered User
Join Date: Aug:2006
Location:
Posts: 4,052
drag & drop windows
freepascal lcl [lazarus component library] - .
/, explorer ( ) .
(c, vb), , dll , "drop" .
-
24th February 2007 14:58 #2
- WS_EX_ACCEPTFILES ( DragAcceptFiles, ) WM_DROPFILES. . - :
http://www.catch22.net/tuts/ OLE Drag and Drop . , .
P.S. , , .Last edited by Bombera; 24th February 2007 at 15:11.
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
24th February 2007 18:13 #3Registered User
Join Date: Aug:2006
Location:
Posts: 4,052
, . , , DragAcceptFiles - .
---
, dragacceptfiles , lazarus
---
, - . file.x, app.exe. explorer / file.x ? (app.exe file.x files.foo ?)
-------------
, , . , ...
,
DragQueryPoint(hDrop, Info.Point); - , POINT 2- , LPOINT.
workaround, ..
- LPOINT, LPOINTCode:LPOINT = record x,y : longint; end; .... TempSol: LPOINT; TempSol.x := Info.Point.x; TempSol.y := Info.Point.y; DragQueryPoint(hDrop, TempSol);


[ lpoint http://msdn.microsoft.com/library/de...tangl_0tiq.asp
ms DragQueryPoint
lpptCode:BOOL DragQueryPoint( HDROP hDrop, LPPOINT lppt );
Address of a POINT structure that the function fills with the coordinates of the mouse pointer at the time the file was dropped.]
Last edited by solar_sea; 24th February 2007 at 19:52.
-
25th February 2007 03:33 #4
LPPOINT POINT . . ^ , @ . . :
DragQueryPoint(hDrop, ^TempSol);
, HDROP . . 2 P-. LPPOINT LPOINT.LP long pointer(32 ), long pointer POINT , .EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|
-
25th February 2007 07:36 #5Registered User
Join Date: Aug:2006
Location:
Posts: 4,052
, '' , @ .
@Info.Point , - 2- @ .




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in