Drag & Drop zwischen ShellListView und Image

[Helmi]

Hallo,

wie man auf dem Bild sehen kann, hab ich auf der rechten Seite eine ShellListView
und auf der linken Seite Quadrate. Diese Quadrate sind Bevels mit einem Image "drauf".

In der ListView sind nur bmp´s drin.

Nun würd ich gerne per Drag&Drop Bitmaps aus der ShellListView "ziehen" und auf eines
der Images ablegen. Dort soll es dann geladen und angezeigt werden.

Wie könnt ich das realisieren?

[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;

[Helmi]

wunderbar, Danke!
Funktioniert perfekt!