关于原版TreeView的使用

--  作者：贾渊
--  发布时间：2010-4-24 7:46:08
--  [原创]关于原版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);
     if not UseStyle then
     Style := Style and not Value
     else Style := Style or Value;
     SetWindowLong(WinCtrl.Handle, GWL_STYLE, Style);
   end;
end;

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); if not UseStyle then Style := Style and not Value else Style := Style or Value; SetWindowLong(WinCtrl.Handle, GWL_STYLE, Style); end; end;

 

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

SetComCtrlStyle(TreeView1, TVS_CHECKBOXES, True);

SetComCtrlStyle(TreeView1, TVS_CHECKBOXES, True);

 

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

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

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

 

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

（须要引用CommCtrl单元）

TreeView_SetItemHeight(TreeView1.Handle, 20);