DragDrop mit ShellDropper

[Rolf Rostig]

Hallo,

in eine Listbox kann ich per Drag & Drop den Dateinamen plus Pfad vom Explorer oder Desktop ziehen.

Delphi-Quellcode:

procedure TForm1.ShellDropper1Drop(Sender: TObject; const DropRec: TDropRec);
var i: integer;
begin
  for i := 0 to DropRec.Files.Count - 1 do
  begin
    ListBox1.Items.Add(DropRec.Files.Strings[i]);
  end;
end;

ich möchte aber nur den Dateinamen in der Listbox stehen haben und auch per Drag & Drop den Namen wieder entfernen oder in eine andere Listbox ziehen.
Wie kann das gehen?

[xaromz]

Hallo,

den reinen Dateinamen bekommst Du mit der Funktion ExtractFileName. Die befindet sich IMHO in SysUtils.

Gruß
xaromz

[shmia]

Zitat von Rolf Rostig:

... und auch per Drag & Drop den Namen wieder entfernen oder in eine andere Listbox ziehen.

In Delphi: Datei->Neu.. -> Formulare -> Dialogfeld mit zwei Listenfeldern
und dann schön den Sourcecode abkupfern