Discussion :

[mickael.be]

Hello,

je voudrais récupérer le sélection d'un TShellTreeView.
d'après google etc, c'est tout simplement "Selected"..

Ma ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Listage := FindFirst(TreeView.Selected + '\*.mp3', faAnyFile, sr);

Erreur :

[Erreur] U_AdminDSC.pas(82): Types incompatibles : 'String' et 'TTreeNode'

:

Merci, bon dimanche!
[Modération]
Merci d'utiliser les balises code ou quote,Laurent Dardenne
[/Modération]

[petitcoucou31]

salut ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
    TreeView.Selected;

Cela indique celement si le treeView est selectionné , mais pas l'element..

tu dois travailler avec les items du treeview ou l'indice du items represente un noeud de l'arborescence. (un noeud est un TTreenode d'ou ton message d'erreur )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    TreeView.items[x].Selected; 
    TreeView.items[x].text; 
    ...

bye.

[mickael.be]

coucou,


J'ai fais :

ChoixRepertoire := TreeView.items[1].text;
ShowMessage(ChoixRepertoire);

Quel que ce sois ma sélection ca affiche:


Système (C

???

[petitcoucou31]

resalut

ChoixRepertoire := TreeView.items[1].text;
ShowMessage(ChoixRepertoire);

Cela affiche le texte de l'items numero 1 de ton arborescence soit : systeme( C : )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
procedure TForm1.TreeView1Click(Sender: TObject);
var I :Integer;
begin
for I :=0 to(TreeView1.items.Count-1)do
    if TreeView1.Items[I].Selected then
       label1.caption:=(TreeView1.Items[I].Text);
end;

bye

[mickael.be]

Merci mais y'a un soucis ..


ca affiche juste :

WINDOWS
ou
SYSTEM32

et jamais C:\WINDOWS\SYSTEM32

??

[petitcoucou31]

hello !

c'est a çà que sert la programmation !! si tout se fesait tout seul on serai plus là !
A moins que tu n'utilises pas le composant TTreeview de delphi , mais un composant dedié a cela qui doit posseder une proprieté qui te retourne le chemin , sinon tu dois le faire toi meme .

quand tu as determiné l'items selectionné , tu recomposes le chemin avec la propriéte parent de ton items.. jusqu'a niveau qui t'interesse pour toi le Level 0 je pense .

bye

[petitcoucou31]

re

je pense que ceci devrai t'aider ..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure TForm1.TreeView1Click(Sender: TObject);
var I :Integer;
    chemin:string;
    Noeud:Ttreenode;
begin
     for I :=0 to(TreeView1.items.Count-1)do
         if TreeView1.Items[I].Selected then Noeud:=TreeView1.Items[I];
 
     chemin:=Noeud.Text;
     while Noeud.Level > 0 do
     begin
        Noeud:=Noeud.Parent;
        chemin:=Noeud.text+'/'+chemin;
     end;
     label1.caption:=chemin;
end;

[mickael.be]

Hello,

T'es vraiment sur qu'il faut fabriquer le path à la main?

Car déjà ton code me semble "long" pour rien qu'avoir le path, c'est quand même le but d'un TreeView non? y'a surement un moyen autre pour avoir le Path de la sélection, non?

avec le code que tu m'a tappé ca donne :


system/Système (C/WINDOWS/SYSTEM32

Y'a du progrès, mais ca bug pas mal..


:

[Pedro]

Salut
Eh bé, pourquoi si compliqué?
Pour un TShellTreeView nommé ShellTreeView1, le chemin actif se trouve comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Listage:=ShellTreeView1.Path;

[mickael.be]

Salut
Eh bé, pourquoi si compliqué?
Pour un TShellTreeView nommé ShellTreeView1, le chemin actif se trouve comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  Listage:=ShellTreeView1.Path;

Ben voilà..

PS: C'est pas que je veux jouer ma star mais, quand je click sur F1 (delphi7) j'ai rien qui m'indique comment récupérer cela..

Et l'autocomplétition non plus

Si qq savait pourquoi..

Merci

[Pedro]

PS: C'est pas que je veux jouer ma star mais, quand je click sur F1 (delphi7) j'ai rien qui m'indique comment récupérer cela..

C'est parce que ce composant est une sorte d'exemple (onglet samples chez moi).

Et l'autocomplétition non plus

Ca par contre, ce n'est pas normal