用TTreeView实现TCheckBoxTreeView的方法(0分)

[red]想和大家共享！[/red]

非常的简单

[red]首先[/red]当然是要在Form加一个TTreeView控件咯。

[red]然后[/red]在单元的公共uses部分加一个Commctrl单元。

好，[red]接下来[/red]要做[brown]三[/brown]件事，
[blue]1、在FormCreate事件中 [/blue]
加入如下代码
var
dw: DWORD;
begin
dw := GetWindowLong( TreeView1.Handle, GWL_STYLE);
dw := dw or TVS_CHECKBOXES;
SetWindowLong(TreeView1.Handle, GWL_STYLE , dw);
end;

[blue]2、加两个函数 [/blue]
function SetTreeViewNodeChecked(ATreeView: TTreeView;
ATreeNode: TTreeNode; Checked: Boolean): Boolean;

function GetTreeViewNodeChecked(ATreeView: TTreeView;
ATreeNode: TTreeNode): Boolean;

第一个用来设置一个节点的是否被Check
第二个用来取得一个节点的Check状态。

[red]3、就是这两个地实现代码了。 [/red]
function SetTreeViewNodeChecked(ATreeView: TTreeView;
ATreeNode: TTreeNode; Checked: Boolean): Boolean;
var
tvItem: TTVItem;
begin
tvItem.mask := TVIF_HANDLE or TVIF_STATE;
tvItem.hItem := ATreeNode.ItemId;
tvItem.stateMask := TVIS_STATEIMAGEMASK;

(*Image 1 in the tree-view check box image list is the
unchecked box. Image 2 is the checked box.*)
if Checked then
tvItem.state := IndexToStateImageMask(2) else
tvItem.state := IndexToStateImageMask(1);

Result := TreeView_SetItem(ATreeView.Handle, tvItem);
end;

function GetTreeViewNodeChecked(ATreeView: TTreeView;
ATreeNode: TTreeNode): Boolean;
var
tvItem: TTVItem;
begin
// Prepare to receive the desired information.
tvItem.mask := TVIF_HANDLE or TVIF_STATE;
tvItem.hItem := ATreeNode.ItemId;
tvItem.stateMask := TVIS_STATEIMAGEMASK;

// Request the information.
TreeView_GetItem(ATreeView.Handle, tvItem);

// Return zero if it's not checked, or nonzero otherwise.
Result := Boolean((tvItem.state shr 12) - 1);
end;


搞定咯！！！！是不是很简单啊？
当然这个只是用来实现Checked 和 UnChecked，是Windows标准TreeView规定的。

如果要实现Grey的话，还要该一下哦。
呼~~~~~~~~~~~~~~*o*忙了一下午终于搞出来了。
大家有什么好方法快拿出来，不要私藏哦。
哈哈哈哈哈~~~~~~~~~~~~~~~

faint....
这个粗体、字体的颜色都没有用啊？