Drag & drop with a display file icon

[Wargan]

Greetings to all!

I want to drag and drop the file onto the form so that its icon is shown when dragging. As in the picture in the attachment. It's not necessary to display the thumbnail or contents of the file, I just want to see icon and name.

It's possible to implement?

p.s. File should be dragged to a specific location, i.e. to BCPanel (dropFilePanel).

[balazsszekely]

I want to drag and drop the file onto the form so that its icon is shown when dragging. As in the picture in the attachment. It's not necessary to display the thumbnail or contents of the file, I just want to see icon and name.
It's possible to implement?

Hi Wargan,
For files you already have a default icon implemented(image1). OnDropFiles(Form1) do something like this:

Code: Pascal  [Select][+][-]

1. procedure TForm1.FormDropFiles(Sender: TObject; const FileNames: array of String);
2. var
3.   I: Integer;
4. begin
5.   for I := Low(FileNames) to High(FileNames) do
6.   begin
7.       //process each file
8.   end;
9. end;

For more advanced drawing see the "Example projects" in the "Tool menu"(Image2)

[Wargan]

Great, GetMem!
Thanks, problem solved.