Архив форумов ЦИТФорума

[xomka]

Люди, кто может написать маленькую прогу с использованием Ttreeview, к примеру: по нажатию кнопки1 появится 3 пункта,
а по нажатию кнопки2 в 1-ый пункт вставить 2 подпункта,


Или хотя бы объясните:
TreeView1.Items.AddChild(что тут должно быть???,'подпункт');
только не надо nil предлогать)

а еще лучше, если человек знающий делфи и сегодня сидящий в нете,
дал свою аську или вот моя 112740057

[Kaiser]

luciffire@yandex.ru
у меня есть такая программа

[xomka]

А как отследить событие щелчка по пункту под меню,
и например если по нему щелкнули, то дабавить еще одно.

2 kaiser : вот мой мейл xomka1917@mail.ru

[Kaiser]

procedure TForm1.Button2Click(Sender: TObject);
begin
treeview1.Items.AddChild(MyTreeNode1,'ChildNode1');
end;

procedure TForm1.TreeView1Click(Sender: TObject);
begin
Button2Click(Sender);//if only onclick
end;

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if node=MyTreeNode2 then Button2Click(Sender);
//onclick, where node=mytreenode2
end;

Все события тривиев: один клик на сам тривиев, потом в обжект инспекторе "ивентс", потом двойной клик на нужный ивентс