работа с treeview

← →
johny (2003-07-18 08:26) [0]

Здравствуйте !
есть компанент treeview в него добавляет items но пока на него не тыкнешь мышей он невыделен и если сразу начать создавать подраздел то возникает ошибка. также ошибка возникает при любом обращении или проверке!
Как после создания первого items сделать стобы он стал выделеным (активным)?

заранее благодарен johny

← →
AlexG © (2003-07-18 09:04) [1]

читай Help!!!

Delphi Object and Component Reference
Add, AddChild example

The following example demonstrates how to add nodes and child nodes to a TTreeView control.

procedure TForm1.Button1Click(Sender: TObject);

var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, "RootTreeNode1"); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,"ChildNode1");

{Add another root node}
MyTreeNode2 := Add(MyTreeNode1, "RootTreeNode2");
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,"ChildNode2");

{Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,"ChildNode2a");

{Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,"ChildNode2b");

{add another root node}
Add(MyTreeNode1, "RootTreeNode3");
end;

end;

работа с treeview Найти похожие ветки