eclems
Messages postés104Date d'inscriptionsamedi 23 décembre 2000StatutMembreDernière intervention 9 mai 2013
-
1 mars 2012 à 22:35
Utilisateur anonyme -
4 mars 2012 à 13:14
bonsoir
je possede un treeview en affichant telecharer et musique
ensuite g un listbox
lorque je veux cliquer sur le telecharger du treeview il doit afficher les fichiers du rep dans la listbox : FindAll('C:\Users\eClem\Downloads\*.*',faAnyFile,ListBox1.Items);
et quand je veux cliquer sur le telecharger du treeview il doit afficher les fichiers du rep dans la listbox : FindAll('C:\Users\eClem\Music\*.mp3',faAnyFile,ListBox1.Items);
function GetSpecialFolder(aFolder: Integer): String; { Tino (Admin DF) }
var
pIdL: PItemIDList;
Path: Array [0..Max_Path] Of Char;
Allocator: IMalloc;
Begin
{ ItemIdList f�r den Ordner holen }
SHGetSpecialFolderLocation (0, aFolder, pIdL);
{ ItemIdList in String umwandeln lassen }
SHGetPathFromIDList (pIDL, Path);
{ Speicher wieder freigeben }
If Succeeded (SHGetMalloc (Allocator)) Then
Begin
Allocator.Free (pIdL);
{$IFDEF VER100}
Allocator.Release;
{$ENDIF}
End;
Result := Path;
end;
procedure FindAll (const Path: String;
Attr: Integer;
List: TStrings) ;
var
Res: TSearchRec;
EOFound: Boolean;
begin
EOFound:= False;
if FindFirst(Path, Attr, Res) < 0 then
exit
else
while not EOFound do begin
List.Add(Res.Name) ;
EOFound:= FindNext(Res) <> 0;
end;
FindClose(Res) ;
end;
procedure SetTreeViewItemHeight(aTreeView: TTreeView; aItemHeight: Word);
begin
aTreeView.Perform(TVM_SETITEMHEIGHT, aItemHeight, 0);
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var i :integer;
begin
Statusbar1.Panels[1].Text:=TimeToStr(Now);
for i:=0 to Pred(GStack.LocalAddresses.Count) do
Statusbar1.Panels[2].Text:=Format('IP n°%d = %s',[i+1,GStack.LocalAddress[i]]);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
Folder: String;
begin
SetTreeViewItemHeight(TreeView1, 30);
WebBrowser1.Navigate('http://www.eclem68.fr/');
StatusBar1.Panels[0].Text:=GetSpecialFolder(CSIDL_COMMON_MUSIC);
//mn := TreeView1.Items.AddChild(TreeView1.Items.GetFirstNode, 'Home') ;
mn := treeview1.Items.AddChild(mn,'Musique');
tn := treeview1.Items.AddChild(tn,'Téléchargé');
ftp_node := treeview2.Items.AddChild(TreeView2.Items.GetFirstNode,'Server FTP Home');
ftp_node := treeview2.Items.AddChild(ftp_node,'Clem68 Server');
TreeView1.Items[0].Data:=nil;
TreeView1.Items[1].Data:=ListBox1.Items;
TreeView1.Items[2].data:=ListBox1.Items;
//Affectation d'une référence sur un noeud de l'arborescence
Listbox1.Tag := Longint(TreeView1.Items[0]);
Listbox1.Tag := Longint(TreeView1.Items[1]);
Listbox1.Tag := Longint(TreeView1.Items[2]);
ftp_node.MakeVisible;
mn.MakeVisible;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var i : integer;
begin
{Vérifier que le noeud sélectionné pointe sur quelque chose avant
de changer l'onglet actif sur le contôle PageControl1}
For i := 0 To ListBox1.Items.Count - 1do
begin
if Assigned(mn.Data) then begin
begin
ListBox1.Clear;
FindAll('C:\Users\eClem\Music\*.mp3',faAnyFile,ListBox1.Items);
end;
if Assigned(tn.Data) then begin
begin
Listbox1.Clear;
FindAll('C:\Users\eClem\Downloads\*.*',faAnyFile,ListBox1.Items);
eclems
Messages postés104Date d'inscriptionsamedi 23 décembre 2000StatutMembreDernière intervention 9 mai 2013 4 mars 2012 à 11:18
Enfaite dans ma ttreeview j'ai 2 ITEM "Télécharger" et "Mes Documents" et losque je clique sur l'un des item il doit afficher dans une tlistview les fihiers du répertoire
avec mon code je n y arrive pas
donc voila je demande un peu d aide