من می خواهم محتوای جدول گروه های کالا را بصورت درختی نمایش دهم بطوری که Check Box هم داشته باشد کد زیر را نوشتم
var CurrentDeptID, RecordDeptID: Integer;
RootNode, DeptNode: TTreeNode;
begin
CurrentDeptID := 0;
TreeView1.Items.Clear;
DeptNode := nil;
try
SpCategoryGoods_Brw.First;
while not SpCategoryGoods_Brw.Eof do
begin
RecordDeptID := SpCategoryGoods_Brw.FieldByName('ParentCategoryID' ).AsInteger;
if (DeptNode = nil) or (RecordDeptID <> CurrentDeptID) then
begin
DeptNode := TreeView1.Items.AddChild(RootNode, SpCategoryGoods_Brw.FieldByName('NameParent').AsSt ring);
DeptNode.StateIndex := 1 ;
CurrentDeptID := RecordDeptID;
end;
DeptNode2 := TreeView1.Items.AddChild(DeptNode, SpCategoryGoods_Brw.FieldByName('Name').AsString);
DeptNode2.StateIndex := 1 ;
SpCategoryGoods_Brw.Next;
end;
finally
SpCategoryGoods_Brw.Close ;
end;
اما CheckBox را برای همه نودها ایجاد نمی کند
پاسخ با نقل قول
