NOSSYLA
Messages postés3Date d'inscriptionlundi 17 mars 2003StatutMembreDernière intervention17 août 2009
-
28 mars 2008 à 15:10
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 2021
-
29 mars 2008 à 16:49
Bonjour à tous,
Voici mon problème:
dans un treeview j'ai par exemple:
NIVEAU_0
...NIVEAU_01
..........NIVEAU_02 etc..
...NIVEAU_01
..........NIVEAU_02 etc..
comment récupérer dans un memo , à l'aide d'une boucle la valeur numérique du niveau de chaque entrée.
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 29 mars 2008 à 15:52
normal tu utilises case treeview1.selected.level of
donc il faut que les noeuds soient sélectionnés..
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
HT : THitTests;
begin
with Sender as TTreeView do
begin
HT := GetHitTestInfoAt(X,Y);
if (htOnItem in HT) then
memo1.Lines.Add(TTreeNode(GetNodeAt(X,Y)).Text);
end;
end;
cs_cantador
Messages postés4720Date d'inscriptiondimanche 26 février 2006StatutModérateurDernière intervention31 juillet 202113 29 mars 2008 à 16:49
dsl, ça marche pas..
Voilà une procédure qui fonctionne sur le OnMouseDown :
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
HT: THitTests;
AnItem: TTreeNode;
begin
with Sender as TTreeView do
begin
HT := GetHitTestInfoAt(X, Y);
AnItem := TreeView1.GetNodeAt(X, Y);
if (htOnItem in HT) then
memo1.Lines.Add(AnItem.Text);
end;
end;