TreeList顯示CheckBox

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;