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;