Thema: Delphi Drag & Drop für Ordner

Einzelnen Beitrag anzeigen

Benutzerbild von chaosben
chaosben

Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
 
Delphi XE2 Professional
 
#2

Re: Drag & Drop für Ordner

  Alt 30. Aug 2005, 06:58
Probiers mal so:
Delphi-Quellcode:
procedure TForm1.JvDragDrop1Drop(Sender: TObject; Pos: TPoint;
  Value: TStrings);
var
  i : Integer;
begin
  for i:=0 to Value.Count-1 do
   begin
    if (DirectoryExists(Value[i])) then
       BuildFileList(IncludeTrailingPathDelimiter(Value[i])+'*.*',faAnyFile,Listbox1.Items);
   end;
end;
Die Funktion BuildFileList kommt aus der Unit JclFileUtils (Jedi3)
Benjamin Schwarze
If I have seen further it is by standing on the shoulders of Giants. (Isaac Newton)
  Mit Zitat antworten Zitat