htmltreeview и RadioButton

nevesna
Дата: 19.06.2009 09:19:52
Доброго всем времени суток.
при работе с компонентом 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,если у них была поставлена точка выбора?