VirtualStringTree Drag n Drop vom Explorer frühzeitig erkennen

[DieDolly]

Die Version aus 44 funktioniert für meine Zwecke https://www.delphipraxis.net/679069-post44.html
Für jedes Form einzeln einstellbar, keine globale Procedur mehr die alles abarbeiten muss.

Ein bisschen "Müll" aus der Demo raus, dann funktioniert es wunderbar.
Ansonsten besser als alles was man sonst so findet!

Delphi-Quellcode:

procedure TForm1.ShellDropper1DragEnter(Sender: TObject; const DropRec: TDropRec; var Accept: Boolean);
begin
 Caption := 'DRAG ENTER';
end;

procedure TForm1.ShellDropper1DragLeave(Sender: TObject);
begin
 Caption := 'DRAG LEAVE';
end;

procedure TForm1.ShellDropper1Drop(Sender: TObject; const DropRec: TDropRec);
begin
 if TWinControl(Sender) = ListBox1 then
  ListBox1.Items.Assign(DropRec.Files)
 else if TWinControl(Sender) = Edit1 then
  Edit1.Text := DropRec.Files.Text;

 Caption := 'DRAG DROP';
end;