Drag and Drop Shelllistview > Listview

[padavan]

Delphi-Quellcode:

procedure ShellListView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if button = mbleft then ShellListview1.BeginDrag(false);
end;

Delphi-Quellcode:

procedure Listview1DragOver(Sender,
  Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if source is tShellTreeView then accept := true;
end;

Delphi-Quellcode:

procedure Listview1DragDrop(Sender,
  Source: TObject; X, Y: Integer);
begin
  if source is tShellTreeView then begin
//tu was......
  end;
end;