treeview 加了 checkbox 后如何判断节点是否 为checked

Question

SetWindowLong(tv1.Handle, GWL_STYLE, GetWindowLong(tv1.Handle, GWL_STYLE ) or $00000100);treeview 加了 checkbox 后如何判断节点是否 为checked

Answer 1

uses CommCtrl;procedure TForm1.Button1Click(Sender: TObject);
var
  a: TTVItem;
const
  TVIS_CHECKED = $2000;
var
  TvItem :TTVItem;
begin
  TvItem.Mask  := TVIF_STATE;
  TvItem.hItem := Self.TreeView1.Selected.ItemId;
  TreeView_GetItem(Self.TreeView1.Selected.Handle, TvItem);
  if (TvItem.State and TVIS_CHECKED) = TVIS_CHECKED then
  begin
    ShowMessage('checked' + '   ' + self.TreeView1.Selected.Text);
  end;
end;