Treeview

Version imprimable

Treeview

Bonjour,

Pouvez-vous m'aider ? J'ai un treeview_actes sur ma fiche, et je voudrais créer un arbre2 que je détruit à la fin de ma procédure, mais il me dit n'est pas rattaché à un parent.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Procedure TFic_Ccam_Consult.BitBtn_RchClick(Sender: TObject); var F: TForm; Arbre2 : TTreeView; begin F := TForm.Create(nil); arbre2 :=TTreeView.Create(self); a := nil; arbre2.Items.Clear ; a:= arbre2.Items.AddChildfirst(arbre2.Selected,'Niveau1') ;// ====>J'ai un pb à ce niveau là, il me dit arbre2 n'est pas rattaché à un parent .... treeview_actes := arbre2; ... end,
MERCI,
VALOJI

22/11/2005, 14h28
valoji

J'ai trouvé mon erreur,

J'avais oublié arbre2.Parent := F;

Mon autre probleme c'est lorsque que je fai

Treeview_acte := Arbre2.
Ma fiche se bloque

salut

peut tu mettre le tag resolu

merci pour ceux qui arrive apres la batail :)
sinon c'est pas plus simple d'utiliser le treeview deja
existant ?
en truc dans ce genre :

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
var
  TN,TNroot : TTreeNode;
begin
 
   treeview_actes.Items.Clear;
   treeview_actes.ShowRoot := True;
   treeview_actes.ShowLines := True;
 
   TNroot :=   treeview_actes.Items.Add(Nil,'Base');
   TNroot.Collapse(false);
   TNroot.HasChildren := True;
   TNroot.ImageIndex := id_root;
   TNroot.SelectedIndex := id_root;
 
  TN :=   treeview_actes.Items.AddChild(TNroot, 'Niveau1');
  TN.HasChildren := True;
  TN.ImageIndex := id_Table;
  TN.SelectedIndex := id_Table;
 
  TN :=   treeview_actes.Items.AddChild(TNroot, 'Niveau2');
  TN.HasChildren := True;
  TN.ImageIndex := id_Table;
  TN.SelectedIndex := id_Table;
 
...
end;

@+ Phil