[wesley bobato]

hello friend please look at the video below to understand this error when I enable the alpha ExtendedBorders skins, and disables the DragDrop Deicha Very Slow … it is possible to improve it?

https://www.dropbox.com/s/9mn310c54dnyk7a/VID_20130410_143157.3gp

[Support]

Moving of window may be faster when SkinManager.AnimEffects.BlendOnMoving property is Active.

Dragdrop issue I can't repeat unfortunately…

[CheshireCat]

'wesley wrote:

I Must Disable Property ExtendedBorders DragDrop to Work Properly.

Hello,

watch the attached demo, it shows drag'n'drop with files from explorer. The function works correctly and fast when ExtendedBorder is enabled.

[attachment=6305:DragFileDemo.zip]

[wesley bobato]

Hello friend Thank you for your attention and Thank the Demo, I need you to Drag Images Display the Thumbnail Image Dragged.

so I use DragDrop Component Suite. is possible to do this in this example?

can you help me?

Thank you for your work.

[CheshireCat]

'wesley wrote:

I need you to Drag Images Display the Thumbnail Image Dragged.

so I use DragDrop Component Suite. is possible to do this in this example?

Hello,

yes, it is possible. Check out the new demo 🙂

[attachment=6312:DragFileDemo.zip]

[wesley bobato]

Hello Friend 1000 times Thank you for your help.

Congratulations for your wonderful work.

I noticed that you are a master at Windows API.

could you help me to create an example of how to drag a list of

Images of a TsImage to windows Explorer, Showing the Thumbnail Image Dragged?

Copy Files to Folder Drag Drop.

or maybe you can show me a website to learn Windows API.

I'll attach an Example for You

But Once Again Thank You For Your Help Friend.

[CheshireCat]

Use ControlAtPos to determine which child control is at the specified location within the control. With the variables dwEffect you can control whether files should be placed.

Code:

function TForm2.DragOver(grfKeyState: Longint; pt: TPoint; var dwEffect: Longint): HResult;
begin
if ControlAtPos(ScreenToClient(pt), False) is TsImage then // which control is under the mouse pointer?
dwEffect := DROPEFFECT_COPY // effect DROPEFFECT_COPY or DROPEFFECT_MOVE drop allowed
else dwEffect := DROPEFFECT_NONE; // effect DROPEFFECT_NONE prevents drop files outside TsImage

if (DropTargetHelper <> nil) then OleCheck(DropTargetHelper.DragOver(pt, dwEffect));

Result := S_OK;
end;

Click on the link below for useful information about Drag'n'Drop 🙂

Implementing Professional Drag & Drop

[wesley bobato]

Thanks Friend for your attention I got Create a Functional Example. I am attaching everyone could use it

Good Sunday, a big hug.

[Author]

Posts