Доброго всем времени суток.
при работе с компонентом HTMLTreeview возникла необходимость отменить у всех узлов с radiobutton точку выбора.
procedure TForm1.Button1Click(Sender: TObject);
var node,node1,node2,node3,node4,node5:ttreenode;
begin
htmltreeview1.Items.clear;
node:=htmltreeview1.Items.Add(nil,' Check Boxes');
htmltreeview1.Items.AddChild(node,'Box1');
htmltreeview1.Items.AddChild(node,'Box2');
htmltreeview1.Items.AddChild(node,'Box3');
htmltreeview1.Items[1].imageindex:=2;
htmltreeview1.Items[2].imageindex:=2;
htmltreeview1.Items[3].imageindex:=2;
node1:=htmltreeview1.Items.Add(nil,' RadioButtons');
htmltreeview1.Items.AddChild(node1,'Rad1');
htmltreeview1.Items.AddChild(node1,'Rad2');
htmltreeview1.Items.AddChild(node1,'Rad3');
htmltreeview1.Items[5].imageindex:=3;
htmltreeview1.Items[6].imageindex:=3;
htmltreeview1.Items[7].imageindex:=3;
end;
procedure TForm1.Button2Click(Sender: TObject);
var n,c:integer;
chk:boolean;
begin
for n:=0 to htmltreeview1.Items.count-1 do
begin
if (HTMLTreeview1.Items[n].ImageIndex=3) then
begin
htmltreeview1.GetRadioButton(htmltreeview1.Items[n],chk);
chk:=not chk ;
htmltreeview1.SetRadioButton((HTMLTreeview1.Items[n].Parent.getFirstChild),false);
end;
end;
end;
Если делаю так, то отменяется выбор только у первого выбранного узла с radiobutton .
Как сделать так чтобы выбор отменялся у всех узлов с radiobutton,если у них была поставлена точка выбора?