TreeList显示CheckBox

最新推荐文章于 2021-04-20 15:29:36 发布

weixin_33674976

最新推荐文章于 2021-04-20 15:29:36 发布

阅读量421

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/2607133/blog/601197

版权

2019独角兽企业重金招聘Python工程师标准>>>

TreeList在显示时不能显示复选框，可通过以下方法实现：

定义一个全局常量。

const
  TVIS_CHECKED = $2000; //节点是否被选中

在窗体的onCreate事件中添加以下代码：

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

判断是否被选中：

function IsChecked(Node: TTreeNode): Boolean;
//节点是否被选中
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;

转载于:https://my.oschina.net/u/2607133/blog/601197