FAQ DelphiConsultez toutes les FAQ

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
function TreeViewSize(ATreeView: TTreeView): TPoint;  
var  
  TotalRect: TRect;  
  i: integer;  
begin  
  //les dimensions respectives de TotalRect seront la somme  
  //des dimensions équivalentes de chaque noeud de l'arbre  
  //On initialise TotalRect à 0 pour toutes les dimensions  
  TotalRect:= Rect(0, 0, 0, 0);  
  //Parcours des noeuds de l'arbre  
  for i:=0 to ATreeView.Items.Count-1 do  
    //DisplayRect retourne les dimensions du rectangle, voir l'aide pour plus de détail  
    UnionRect(TotalRect, TotalRect, ATreeView.Items[i].DisplayRect(false));  
  
  result.X:= TotalRect.Right;  
  result.Y:= TotalRect.Bottom;  
end;  
  
procedure TForm1.Button1Click(Sender: TObject);  
var  
  maxSize: TPoint;  
begin  
  maxSize:= TreeViewSize(TreeView1);  
  //On redimensionne le TTreeview pour qu'il soit complètement visible  
  TreeView1.ClientWidth:= maxSize.X;  
  TreeView1.ClientHeight:= maxSize.Y;  
end;

TreeView1.Items.Item[0].haschildren := True;

TreeView1.Items.Item[0].haschildren := False;

1
2
3
4
5
6
7
function IsTreeViewEditing(const: TrreView: TTreeView): boolean; 
Const 
  TVM_FIRST    =$1100; 
  TVM_GETEDITCONTROL = TVM_FIRST + 15; 
begin 
  Result := SendMessage(TreeView.Handle,TVM_GETEDITCONTROL,0,0)<>0;  
end;

1
2
3
4
5
6
Const 
  TVM_FIRST    =$1100; 
  TVM_EDITLABEL=(TVM_FIRST+65); 
begin 
  SendMessage(TreeView1.Handle,TVM_EDITLABEL,0,Integer(TreeView1.Selected.ItemID)); 
end;