Текущий архив: 2002.12.23;
Скачать: 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 вся ветка
Текущий архив: 2002.12.23;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.011 c
