Dateien per Drag-and-Drop in ListBox einfügen

**benst**

Hi,

ich benötige folgende Funktion:
Ich habe eine ListBox und möchte, dass man per Drag-and-Drop Dateien aus dem Explorer darauf ziehen kann. Dann sollen die Dateien in die ListBox eingetragen werden.
Ich habe schon nach Drag-and-Drop gesucht, die gefundenen Beiträge haben mir jedoch nicht so recht weitergeholfen.

Gruß
Ben

**SirThornberry**

du musst mit der Api-Funktion DragAcceptFiles (Shellapi) das droppen von Dateien erlauben. Anschließénd musst du die Message wm_dropfiles auswerten. Der Funktionsname als auch die Message sollten dir bei der Suche helfen.

**Mazel**

Hi,

ich denke dieser Code sollte dir weiterhelfen:

zusammenfalten · markieren

Delphi-Quellcode:

			private

  procedure WMDROPFILES(var Msg: TMessage); Message WM_DROPFILES;

procedure TForm1.WMDROPFILES(var Msg: TMessage);

var

 i, Counts, Size: Integer;

 PCharFileName: PChar;

begin

 inherited;

 PCharFileName:=nil;

 Counts:=DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);

 for i:=0 to Counts - 1 do

  begin

   Size:=DragQueryFile(Msg.WParam, i, nil, 0) + 1;

   PCharFileName:=StrAlloc(Size);

   DragQueryFile(Msg.WParam, i, PCharFileName, Size);

   ListBox1.Items.Add(String(PCharFileName));

   StrDispose(PCharFileName);

  end;

 DragFinish(Msg.WParam);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 DragAcceptFiles(ListBox1.Handle, True);

end;

Du benötigst außerdem noch die ShellAPI in der Uses Klausel und eine ListBox auf deinem Formular

Gruß
Mazel

[edit=Phoenix]Dem Cache auf die Sprünge geholfen (Syntax Highlighting) Mfg, Phoenix[/edit]

**benst**

Danke, funst prima.

Wie kann ich verhindern, dass man auch Verzeichnisse eingefügt werden? Es sollen nur Dateien sein!
Gruß
Ben

**SirThornberry**

das geht gar nicht zu verhindern. Du musst in der Messageroutine einfach prüfen ob es sich um ein Verzeichnis handelt.
Könnte eventuell jemand erklären warum das funktioniert? ich hätte gedacht das die Message gar nicht beim Form ankommt sondern direkt bei der Listbox. Ich bin also verwundert das die WM_DROPFILES message vom Form verarbeitet wird obwohl die Listbox ja das Droppen von Files erlaubt und auch die Messageroutine der Listbox doch eigentlich diese Message bekommt.

**benst**

Danke.
Das ist mir schon klar, aber wie prüfe ich, ob es sich dabei um einen Ordner oder um eine Datei handelt?
Ben

**benst**

Wie kann ich prüfen, ob es sich bei einem Pfad um eine Datei oder ein Verzeichnis handelt?
Gruß
Ben

**Mazel**

Um zu überprüfen ob es sich um ein Verzeichnis handelt kannst du folgenden Code in der WMDROPFILES verwenden:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.WMDROPFILES(var Msg: TMessage);

var

i, Counts, Size: Integer;

PCharFileName: PChar;

begin

inherited;

PCharFileName:=nil;

Counts:=DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);

for i:=0 to Counts - 1 do

  begin

   Size:=DragQueryFile(Msg.WParam, i, nil, 0) + 1;

   PCharFileName:=StrAlloc(Size);

   DragQueryFile(Msg.WParam, i, PCharFileName, Size);

   { Funktion die prüft, ob es sich um ein Verzeichnis handelt}

   If FileGetAttr(String(PCharFileName)) <> faDirectory then ListBox1.Items.Add(String(PCharFileName));

   StrDispose(PCharFileName);

  end;

DragFinish(Msg.WParam);

end;

Gruß
Mazel

[edit=sakura] Cache-Refresh. Mfg, sakura[/edit]

**benst**

Danke
Kann man bei einer ListBox irgendwie horizontal scrollen?
Ben

**Mazel**

Hi,

ja man kan sich eine horizonalte ScrollBar einbauen. Füge den Code in Form-Create ein und dann sollte es gehen:

markieren

Delphi-Quellcode:

			 SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 140, 0);

 { 140 steht für den Wert wie weit gescrollt werden soll }

Gruß
Mazel

Dateien per Drag-and-Drop in ListBox einfügen

Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Re: Dateien per Drag-and-Drop in ListBox einfügen

Forumregeln

SirThornberry (Moderator) Registriert seit: 23. Sep 2003 Ort: Bockwen 12.235 Beiträge Delphi 2006 Professional	#2 Re: Dateien per Drag-and-Drop in ListBox einfügen 26. Jun 2006, 21:20 du musst mit der Api-Funktion DragAcceptFiles (Shellapi) das droppen von Dateien erlauben. Anschließénd musst du die Message wm_dropfiles auswerten. Der Funktionsname als auch die Message sollten dir bei der Suche helfen. Jens Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's

benst Registriert seit: 20. Jun 2004 155 Beiträge Delphi 5 Standard	#4 Re: Dateien per Drag-and-Drop in ListBox einfügen 26. Jun 2006, 21:50 Danke, funst prima. Wie kann ich verhindern, dass man auch Verzeichnisse eingefügt werden? Es sollen nur Dateien sein! Gruß Ben

benst Registriert seit: 20. Jun 2004 155 Beiträge Delphi 5 Standard	#6 Re: Dateien per Drag-and-Drop in ListBox einfügen 26. Jun 2006, 22:04 Danke. Das ist mir schon klar, aber wie prüfe ich, ob es sich dabei um einen Ordner oder um eine Datei handelt? Ben

benst Registriert seit: 20. Jun 2004 155 Beiträge Delphi 5 Standard	#7 Re: Dateien per Drag-and-Drop in ListBox einfügen 27. Jun 2006, 11:50 Wie kann ich prüfen, ob es sich bei einem Pfad um eine Datei oder ein Verzeichnis handelt? Gruß Ben

benst Registriert seit: 20. Jun 2004 155 Beiträge Delphi 5 Standard	#9 Re: Dateien per Drag-and-Drop in ListBox einfügen 27. Jun 2006, 14:12 Danke Kann man bei einer ListBox irgendwie horizontal scrollen? Ben

Mazel Registriert seit: 11. Nov 2005 Ort: Leipzig 831 Beiträge	#10 Re: Dateien per Drag-and-Drop in ListBox einfügen 27. Jun 2006, 15:00 Hi, ja man kan sich eine horizonalte ScrollBar einbauen. Füge den Code in Form-Create ein und dann sollte es gehen: markieren Delphi-Quellcode: SendMessage(Listbox1.Handle, LB_SETHORIZONTALEXTENT, 140, 0); { 140 steht für den Wert wie weit gescrollt werden soll } Gruß Mazel Marcel Jänicke www.mj-software.net