Question

delphi中树

哪位有delphi中tree动态获取数据库生成，前面树节点是复选框，并且选择一节点，子节点也被选择，哪位有实例，非常感谢!

Answer 1

建议你使用RzCheckTree控件，该控件的功能就是前面树节点是复选框，并且选择一节点，子节点也被选择；不然你就只能代码遍历控制了，这容易出错！
例如：
// 说明：VidzuTree: TRzCheckTree;
procedure TDevGroupUserSetForm.AddzuTree(Node: TTreeNode; Deptid: string);
var
SqlStr : string;
DeviceNode : TTreeNode;
groupid : Integer;
begin
try
VidzuTree.Items.Clear;
SqlStr := 'Select * from DevGroup order by id';
with ADOQuery1 do
begin
Close;
SQL.Clear;
SQL.Add(SqlStr);
Open;
while not Eof do
begin
DeviceNode := VidzuTree.Items.Add(nil, FieldByName('GroupName').AsString);
groupid := FieldByName('id').AsInteger;
DeviceNode.Data := Pointer(groupid); //给每个设备组节点赋一个值 （编号）
Next;
end;
end;
except
end;
end;