TreeView

← →
Tik (2002-12-14 17:26) [0]

Есть узел. в нем 10 подузлов.
Если я нажимаю на 3-1, то у GrouoBox2 Caption измениться на 3. Если нажал на 9, то на 9.

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var i:integer;
begin
for i:=1 to 10 do
If TreeView1.Items.Item[i].Selected then
GroupBox2.Caption:=IntToStr(i);
end;

При попытки нажать на узлы, он "вылетает"

← →
TTCustomDelphiMaster © (2002-12-14 17:56) [1]

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
if Assigned(Node) then
GroupBox2.Caption := IntToStr(Node.Index);
end;

TreeView Найти похожие ветки