Treeview
Résolu
gabs77
Messages postés
379
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
8 octobre 2008
-
3 janv. 2007 à 10:08
WhiteHippo Messages postés 1154 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 5 avril 2012 - 3 janv. 2007 à 13:41
WhiteHippo Messages postés 1154 Date d'inscription samedi 14 août 2004 Statut Membre Dernière intervention 5 avril 2012 - 3 janv. 2007 à 13:41
1 réponse
WhiteHippo
Messages postés
1154
Date d'inscription
samedi 14 août 2004
Statut
Membre
Dernière intervention
5 avril 2012
3
3 janv. 2007 à 13:41
3 janv. 2007 à 13:41
Bonjour,
Est ce que quelquechose dans ce style là te conviendrait :
function RechercheElement( Tree : TTreeview ; ElementRecherche : string ) : Integer ;
var
Node : TTreeNode ;
begin
Result := -1 ;
if ( Tree.Items.Count > 0 ) then
begin
Node := Tree.Items[0] ; // Sélection de la racine
while Node <> nil do
begin
if ( Node.Text = ElementRecherche ) then
begin
// Retourne l'index Absolu !!
Result := Node.AbsoluteIndex ;
// Sélection du noeud
Node.Selected := TRUE ;
Tree.SetFocus ;
Break;
end ;
Node := Node.GetNext;
end ;
end ;
end ;
// Exemple d'appel
Index := RechercheElement( Treeview1, 'Ab' ) ;
Cordialement.
<hr />"Frappe ta tête contre une calebasse... et si tu entends un son creux, ne te presse pas d'en déduire que c'est la calebasse qui est vide..."
Est ce que quelquechose dans ce style là te conviendrait :
function RechercheElement( Tree : TTreeview ; ElementRecherche : string ) : Integer ;
var
Node : TTreeNode ;
begin
Result := -1 ;
if ( Tree.Items.Count > 0 ) then
begin
Node := Tree.Items[0] ; // Sélection de la racine
while Node <> nil do
begin
if ( Node.Text = ElementRecherche ) then
begin
// Retourne l'index Absolu !!
Result := Node.AbsoluteIndex ;
// Sélection du noeud
Node.Selected := TRUE ;
Tree.SetFocus ;
Break;
end ;
Node := Node.GetNext;
end ;
end ;
end ;
// Exemple d'appel
Index := RechercheElement( Treeview1, 'Ab' ) ;
Cordialement.
<hr />"Frappe ta tête contre une calebasse... et si tu entends un son creux, ne te presse pas d'en déduire que c'est la calebasse qui est vide..."
