RZTreeView 复选框(100)

RzTreeView加载数据时，根据条件给复选框‘打钩’用代码怎么实现？

引用CommCtrlFunction SetTVItemChecked(TV : THandle; HItem : HTreeItem; mChecked : Boolean) : integer;var TVItem : TTVItem;begin Result := -1; ZeroMemory(@TVItem, SizeOf(TVItem)); TVItem.mask := TVIF_STATE; TVItem.hItem := HItem; if not BOOL(SendMessage(TV , TVM_GETITEM, 0, Longint(@TVItem))) then Exit; //取选中状态 if mChecked=(TVItem.state and IndexToStateImageMask(1)=0) then Exit; //判断和输入参数一致 if mChecked then TVItem.state := 1 else TVItem.state := 0; if BOOL(SendMessage(TV , TVM_SETITEM, 0, Longint(@TVItem))) then //设置 Result := NO_ERROR;end;调用SetTVItemChecked(tv1.Handle, tv1.Items.Item[1].ItemId, True);上面的代码是按标准TreeView编写.你可以试下

试一下要是成功了马上给分

代码没有问题只是复选框不能打钩

这控件可能是自己处理了复选框,你看看他的Item有没有Checked方法吧..

多人接受答案了。