TShellTreeview + Selected..

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:

---

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

---

Erreur :

Citation:

---

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

---

:?: 8O

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

salut ,

Code:

---

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:

---

1 2 3 4

TreeView.items[x].Selected; TreeView.items[x].text; ...

---

bye.

coucou,


J'ai fais :

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

Quel que ce sois ma sélection ca affiche:


Système (C:)

???

resalut

Citation:

---

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

---

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

Code:

---

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

Merci mais y'a un soucis ..


ca affiche juste :

WINDOWS
ou
SYSTEM32

et jamais C:\WINDOWS\SYSTEM32

??

hello !

c'est a çà que sert la programmation !! :D 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

re

je pense que ceci devrai t'aider ..

Code:

---

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;

---

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..


:?:

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

Code:

---

1 2	Listage:=ShellTreeView1.Path;

---

;)

Citation:

---

Envoyé par Pedro204

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

Code:

---

1 2	Listage:=ShellTreeView1.Path;

---

;)

---

Ben voilà.. :D

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 8O

Si qq savait pourquoi..

Merci

Citation:

---

Envoyé par mickaelmediaprod

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).

Citation:

---

Envoyé par mickaelmediaprod

Et l'autocomplétition non plus 8O

---

Ca par contre, ce n'est pas normal :?