Código Delphi [-]procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); begin // lista1 = TFileListBox Lista1.Directory:= ShellTreeView1.Path; end;
procedure TForm1.ShellTreeView1Change(Sender: TObject; Node: TTreeNode); begin // lista1 = TFileListBox Lista1.Directory:= ShellTreeView1.Path; end;