Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre chevronné
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    décembre 2006
    Messages
    1 303
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : décembre 2006
    Messages : 1 303
    Points : 1 981
    Points
    1 981

    Par défaut [D7] Utilisation d'un TreeView

    Bonjour,

    je veux réduire un Treeview du nœud 1 au dernier nœud et je veux qu'un fin d'opération le noeud 0 soit affiché et sélectionné en première ligne (en haut) .

    J'ai essayé ceci qui ne fonctionne pas : la dernière ligne du TreeView est affichée en bas du TreeView :

    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
    18
    19
    20
    21
    { ===================================================================== }
    procedure TF_Princ.Btn_ReductClick(Sender: TObject);
    // Réduire le Treeview
    Var
      i : Integer ;
    Begin
      TvXML.Items.BeginUpdate ;
      For i:=1 to TvXML.Items.Count-1 do
        Begin
          TvXML.Items.Item[i].Collapse(False) ;
        End ;
      TvXML.Items.EndUpdate ;
      TvXML.Selected :=  TvXML.Items.Item[0] ;
     
    { autres essais infructueux :
      TvXML.items.GetFirstNode;
      TvXML.Items.Item[0].Selected := True ;
      TvXML.Items.Item[0].Focused := True ;
    }
    End;
    { ===================================================================== }
    Quelqu'un sait il comment faire ?
    Merci
    A+
    Charly

  2. #2
    Membre chevronné
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    décembre 2006
    Messages
    1 303
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : décembre 2006
    Messages : 1 303
    Points : 1 981
    Points
    1 981

    Par défaut

    J'ai trouvé en cherchant la même chose pour un TMemo

    Il suffit de faire :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
      SendMessage(TvXML.Handle, WM_VScroll, SB_TOP, 0);
    A+
    Charly

  3. #3
    Membre expérimenté
    Avatar de ALWEBER
    Homme Profil pro
    Expert Delphi
    Inscrit en
    mars 2006
    Messages
    1 051
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Expert Delphi

    Informations forums :
    Inscription : mars 2006
    Messages : 1 051
    Points : 1 710
    Points
    1 710
    Billets dans le blog
    5

    Par défaut

    Tu peux aussi utiliser tvXML.FullCollapse;

  4. #4
    Membre chevronné
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    décembre 2006
    Messages
    1 303
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : décembre 2006
    Messages : 1 303
    Points : 1 981
    Points
    1 981

    Par défaut

    Oui, merci, mais je ne crois pas que FullCollapse réaffiche la première ligne du TreeView

    D'autre part je veux tout réduire sauf le nœud 0

    A+
    Charly

  5. #5
    Membre expérimenté
    Avatar de ALWEBER
    Homme Profil pro
    Expert Delphi
    Inscrit en
    mars 2006
    Messages
    1 051
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Val de Marne (Île de France)

    Informations professionnelles :
    Activité : Expert Delphi

    Informations forums :
    Inscription : mars 2006
    Messages : 1 051
    Points : 1 710
    Points
    1 710
    Billets dans le blog
    5

    Par défaut

    Autre possibilité en reprenant ton code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Var
      i1 : Integer ;
    Begin
      TreeView1.Items.BeginUpdate ;
      For i1:=TreeView1.Items.Count-1 downto 2 do
        Begin
          TreeView1.Items.Item[i1].Collapse(False) ;
        End ;
      TreeView1.Items.Item[1].Expand(true);
      TreeView1.Items.EndUpdate ;
      TreeView1.Selected :=  TreeView1.Items.Item[0] ;

  6. #6
    Membre chevronné
    Avatar de Charly910
    Homme Profil pro
    Ingénieur TP
    Inscrit en
    décembre 2006
    Messages
    1 303
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur TP
    Secteur : Bâtiment Travaux Publics

    Informations forums :
    Inscription : décembre 2006
    Messages : 1 303
    Points : 1 981
    Points
    1 981

    Par défaut

    Oui, merci cela fonctionne aussi

    A+
    Charly

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 0
    Dernier message: 09/11/2010, 16h47
  2. [AC-2003] Utilisation d'un treeview TreeCtrl
    Par lio33 dans le forum IHM
    Réponses: 2
    Dernier message: 10/02/2010, 10h51
  3. Réponses: 4
    Dernier message: 01/08/2009, 18h44
  4. Utilisation d'un treeView
    Par Yann_br dans le forum ASP.NET
    Réponses: 10
    Dernier message: 11/10/2007, 15h38
  5. Utilisation d'un treeview
    Par t0ine dans le forum C++Builder
    Réponses: 3
    Dernier message: 05/02/2006, 10h11

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo