Discussion :

[tarmo57]

Salut tous et merci d'avance
Voila mon problème je voudrais limité dans un treeview le nombre de sous éléments.En gros je voudrais une catégorie principal (Elément): exemple ci dessous
PARENT
______Enfant1
______Enfant2
______Enfant3
Et ce que je voudrais bloquer
Parent
_____Enfant1
_____Enfant2
___________SousEnfant1
J’espère être clair.Je voudrais que l'on puisse créer des sous ensembles mais pas de sous sous ensembles.
Merci de votre aide

[ShaiLeTroll]

Regarde la propriété Level !

[tarmo57]

Regarde la propriété Level !

merci de ton aide.mais je suis vraiment débutant et je trouve bien des choses sur level mais pas vraiment ce que je voudrais
exemple je fais

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
if TreeView1.Selected.Level=0 then
begin
TreeView1.Font.Style:=[fsBold];
end;
 end;

et la tous mon treeview est en gras pourquoi ?

[petitcoucou31]

salut

voici un exemple

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
22
23
24
25
26
27
28
29
30
 
// creation du 1er noeud niveau 1
procedure TForm1.FormCreate(Sender: TObject);
begin
   Noeud :=TreeView1.Items.Add(nil,Inttostr(1));
end;
 
// creation des noeud niveau 1
procedure TForm1.Button1Click(Sender: TObject);
begin
   if Noeud.Level<>0 then Noeud:=Noeud.Parent;
   Noeud :=TreeView1.Items.Add(Noeud,'Niveau 1 -'+Inttostr(TreeView1.Items.Count));
end;
 
// creation des noeud seulement de niveau 2 ( ajoute des fils au noeud selectionné ou frere)
procedure TForm1.Button2Click(Sender: TObject);
begin
   Noeud :=TreeView1.Selected; // selectionne le noeud
   if Noeud<>nil then
       begin
       if Noeud.Level=0 then
          // ajoute 1er fils
          Noeud :=TreeView1.Items.AddChildFirst(Noeud,'Niveau 2 -'+Inttostr(TreeView1.Items.Count))
       else
          // ajoute frere
          TreeView1.Items.Add(Noeud,'Niveau 2 -'+Inttostr(TreeView1.Items.Count));
   end
   else showmessage('non selectionné');
   TreeView1.FullExpand;
end;

[tarmo57]

super le code merci beaucoup je comprend mieux maintenant

[tarmo57]

merci encore petitcoucou31
j'aurais juste une petite retouche svp
voila le code que j'ai retoucher c ok

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
22
23
24
25
26
27
28
procedure TForm1.FormCreate(Sender: TObject);
begin
Noeud :=TreeView1.Items.Add(nil,Inttostr(0));
 
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 if Noeud.Level<>0 then Noeud:=Noeud.Parent;
   Noeud :=TreeView1.Items.Add(Noeud,edit1.text);
end;
 
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 Noeud :=TreeView1.Selected; // selectionne le noeud
   if Noeud<>nil then
       begin
       if Noeud.Level=0 then
          // ajoute 1er fils
          Noeud :=TreeView1.Items.AddChildFirst(Noeud,edit2.Text)
       else
          // ajoute frere
          TreeView1.Items.Add(Noeud,edit2.Text);
   end
   else showmessage('non selectionné');
   TreeView1.FullExpand;
end;

mais tu vois mon treeview débute en tête de liste par un 0
et j'aimerai su possible qu'il soit plutot écrit un mot ex: Débit

merci de votre aide

[Cl@udius]

Code :

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

1
2
3
4
procedure TForm1.FormCreate(Sender: TObject);
begin
  Noeud :=TreeView1.Items.Add(nil, 'Débit');
end;

Tu n'as pas beaucoup cherché on dirait. Pas bien

[tarmo57]

grand merci tous marche super