,tree,view,control,add,item,delphi

Omar 10/12/2016 0

The following example adds a new item to the selected item's list of child items in the tree view control. The new item is added first in the list of child items. The new item is identified by the text 'New Item'. The TBitmap object is attached to the new item.

Delphi
 procedure TForm1.Button1Click(Sender: TObject);
var
  MyBitMap : TBitmap;
  node : TTreeNode;
begin
  MyBitMap := TBitmap.Create;
  MyBitMap.LoadFromFile('littleB.bmp');
  TreeView1.Items.BeginUpdate;
  node:= TreeView1.Items.AddChildObjectFirst(
    TreeView1.Selected, 'New Item', MyBitMap);
//  node.ImageIndex:= -1;
  TreeView1.Items.EndUpdate;
end; 

Report Bug

Please Login to Report Bug

Reported Bugs

Comments

Please Login to Comment

Comments