遍历checktree 选中的节点，就是前面打勾的

procedure TForm1.Button1Click(Sender: TObject);
var
  i,j:Integer;
begin
  self.ListBox1.Items.Clear;
  i:=self.RzCheckTree1.Items.Count;
  for j:=0 to i-1 do
  begin
    if self.RzCheckTree1.Items[j].StateIndex=2 then//stateindex=2表示当前节点的checked:=true;
      self.ListBox1.Items.Add(self.RzCheckTree1.Items[j].Text);
  end;
end;

转载于:https://www.cnblogs.com/martian6125/archive/2012/10/08/9631116.html