TreeView结点前有一个复选框 ( 积分: 50 )

请各位帮帮忙！！我现在想让TreeView的每个结点前都出现一个复选框，应该怎么实现啊？
从网上看到说DBTreeView有复选框的功能，各位大富翁有谁用过DBTreeView，请问要如何使用DBTreeView??请各位帮帮忙！！谢谢！！

1stclass里有这个控件

1stclass中的tfctreeview控件

选中show checkbox using .就可以了

1stclass中的tfctreeview控件请问哪里有下载啊？

Raise控件中的listview有这种功能,你可以到2ccc.com去下载!

//让TreeView的节点变成带复选框的样式
SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or $00000100);

//检查一个节点是否是被选中的
function GetNodeChecked(Node :TTreeNode) :Boolean;
const
TVIS_CHECKED = $2000;
var
TvItem :TTVItem;
begin
TvItem.Mask := TVIF_STATE;
TvItem.hItem := Node.ItemId;
TreeView_GetItem(Node.TreeView.Handle, TvItem);
Result := (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED;
end;

//设置节点被选中或不被选中
procedure SetNodeChecked(Node :TTreeNode; Checked :Boolean);
const
TVIS_CHECKED = $2000;
var
TvItem :TTVItem;
begin
FillChar(TvItem, SizeOf(TvItem), 0);
with TvItem do begin
hItem := Node.ItemId;
Mask := TVIF_STATE;
StateMask := TVIS_STATEIMAGEMASK;
if Checked then
TvItem.State :=TVIS_CHECKED
else
TvItem.State :=TVIS_CHECKED shr 1;
TreeView_SetItem(Node.TreeView.Handle, TvItem);
end;
end;

【精华】 高跟女同的激情演绎！[100P]
http://74.53.87.91/viewthread.php?tid=375679&fromuid=1211598

谢谢
我找到了1stclass,请问有没有说明啊？

很晕。你用wr960204的代码就可以了，不用再去下载控件了。

谢谢各位了！！