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;