Drag & Drop zwischen ShellListView und Image

[bitsetter]

Hi,

die Ereignisse onDragOver sowie onDragDrop allen TImage zuweisen und vom ShellListView die Eigenschaft Dragmode auf dmAutomatic stellen und eventuell noch einige zusätzliche Sicherheitsabfragen einbauen.

Delphi-Quellcode:

procedure TForm1.Image1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Accept:= Source is TShellListview;
end;

procedure TForm1.Image1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  if (Sender is TImage) and (Source is TShellListView) then
     TImage(Sender).Picture.LoadFromFile(TShellListView(Source).SelectedFolder.PathName);
end;