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