Registriert seit: 27. Apr 2005
Ort: Görlitz
1.358 Beiträge
Delphi XE2 Professional
|
Re: Drag & Drop für Ordner
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)
|