CheckTreeView

I'm iterating through the tree node to check if the associated checkbox is checked.

.Checkboxes := True

.MultiSelect := True

using procedure AdvCheckTreeView1NodeCheckedChanged(Sender: TObject; Node: TTreeNode; NewState: Boolean);



I haven't been able to determine if the current loop i has the checkbox checked



For i := 0 To (AdvCheckTreeView1.Items.Count -1) Do

Begin

    //ie If AdvCheckTreeView1.Items.checkbox := True Then do something //I know this call is not real

   //but ive been unsuccessful in find the correct one

End;



any pointers would be appreciated

Thanks much

This code snippet will add all checked nodes in a listbox:

var
  i: integer;
  tn: TTreeNode;
begin
  for i := 0 to advchecktreeview1.Items.Count - 1 do
  begin
    tn := AdvCheckTreeView1.Items;
    if AdvCheckTreeView1.Checked[tn] then
      listbox1.Items.Add(tn.Text);
  end;
end;