Скачать: CL | DM;

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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.024 c