View Issue Details

IDProjectCategoryView StatusLast Update
0006631JEDI VCL00 JVCL Componentspublic2018-06-09 16:35
ReporternyburnerAssigned ToAHUser 
PrioritynormalSeverityminorReproducibilityalways
Status resolvedResolutionfixed 
Product VersionDaily / GIT 
Target VersionFixed in VersionDaily / GIT 
Summary0006631: Drag and Drop
DescriptionDrag and drop for the TjvDragDrop component will not work under Windows 10
unless the EXE is run as privileged user -AND- some extra code is run to enable
messages to be passed correctly. See attached code unit below;

Suggestion: add the code included below to JVCL so drag and drop functions
             correctly;

Thanks;

Bruce
Additional Information{***********************************************************************
* *
* wsUpdateDragDropPrivileges.pas *
* *
* *
* Modification *
* ============ *
* *
***********************************************************************}

Unit wsUpdateDragDropPrivileges ;

interface

  Procedure UpdateDragDropPrivileges ;

Implementation
  Uses
    Windows , Messages ;

// function ChangeWindowMessageFilter(Message: UINT; dwFlag: DWORD): BOOL; stdcall;

{***********************************************************************
* *
* UpdateDragDropPrivileges *
* *
* Modification *
* ============ *
* *
***********************************************************************}

Procedure UpdateDragDropPrivileges ;
  Begin { UpdateDragDropPrivileges }
    ChangeWindowMessageFilter(WM_DROPFILES , MSGFLT_ADD) ;
    ChangeWindowMessageFilter(WM_COPYDATA , MSGFLT_ADD) ;
    ChangeWindowMessageFilter(WM_COPYGLOBALDATA , MSGFLT_ADD) ;
  End ; { UpdateDragDropPrivileges }

Initialization
  UpdateDragDropPrivileges ;
End.
TagsNo tags attached.

Activities

2018-03-31 09:18

 

wsUpdateDragDropPrivileges.pas (1,857 bytes)

AHUser

2018-06-09 16:35

developer   ~0021471

Added property "AllowDropElevation: Boolean default False" to TJvDragDrop. By enabling it (Windows 7 and newer required) the "Drag" can come from an application with a lower privilege than the "Drop" window.

Issue History

Date Modified Username Field Change
2018-03-31 09:18 nyburner New Issue
2018-03-31 09:18 nyburner File Added: wsUpdateDragDropPrivileges.pas
2018-06-09 16:35 AHUser Note Added: 0021471
2018-06-09 16:35 AHUser Status new => resolved
2018-06-09 16:35 AHUser Fixed in Version => Daily / GIT
2018-06-09 16:35 AHUser Resolution open => fixed
2018-06-09 16:35 AHUser Assigned To => AHUser