关于原版TreeView的使用

D7中原版的TreeView就很好用，但是却没有一个属性可以直接设置节点的CheckBox，经过摸索，找到一个较好的解决方案。

const
TVS_CHECKBOXES = $00000100; 
procedure TForm1.SetComCtrlStyle(WinCtrl: TWinControl; Value: Integer; UseStyle: Boolean); 
var
Style: Integer; 
begin
if WinCtrl.HandleAllocated then
begin
     Style := GetWindowLong(WinCtrl.Handle, GWL_STYLE); 
ifnot UseStyle then
     Style := Style andnot Value 
else Style := Style or Value; 
     SetWindowLong(WinCtrl.Handle, GWL_STYLE, Style); 
end; 
end;

然后在Form.Create事件中调用即可：

SetComCtrlStyle(TreeView1, TVS_CHECKBOXES, True);

另外，也可以把上述语句直接简化成一句，只不过对于不熟悉API的人来说，可读性是差了一些：

SetWindowLong(TreeView1.Handle, GWL_STYLE, GetWindowLong(TreeView1.Handle, GWL_STYLE) or$00000100);

经过这样处理后的TreeView就带有了CheckBox的效果，可是大家可能会发现，CheckBox的下边框线不见了。这是由于默认的Node行距太小，可以对此进行修改。

（须要引用CommCtrl单元）

TreeView_SetItemHeight(TreeView1.Handle, 20);

转自:http://www.cnblogs.com/ywangzi/archive/2012/07/12/2587279.html