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;