TreeView avec un seul sous élément

Version imprimable

29/09/2008, 15h12
tarmo57

TreeView avec un seul sous élément

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
29/09/2008, 16h38
ShaiLeTroll

Regarde la propriété Level !
29/09/2008, 19h15
tarmo57

merci de ton aide
Citation:

Envoyé par ShaiLeTroll

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:

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 ?

salut

voici un exemple

Code:

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;

30/09/2008, 16h22
tarmo57

super merci

super le code merci beaucoup je comprend mieux maintenant

juste une petite retouche

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

Code:

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

Code:

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 :nono:

01/10/2008, 18h39
tarmo57

super

grand merci tous marche super