zoukankan      html  css  js  c++  java
  • 学习 TTreeView [16] 给 TTreeView 添加复选框 (回复 "丁永其" 的问题)

    问题来源: http://www.cnblogs.com/del/archive/2008/05/15/1114450.html#1199402

    本例效果图:


    unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ComCtrls, StdCtrls;
    
    type
      TForm1 = class(TForm)
        TreeView1: TTreeView;
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    uses CommCtrl;
    
    //让 TreeView 带有复选框
    procedure TForm1.FormCreate(Sender: TObject);
    var
      H: HWND;
    begin
      H := TreeView1.Handle;
      SetWindowLong(H, GWL_STYLE, GetWindowLong(H, GWL_STYLE) or TVS_CHECKBOXES);
    
      {下面的代码只是给 TreeView 添加内容}
      with TreeView1 do
      begin
        Align := alLeft;
        Items.Add(nil, 'AAA');
        Items.Add(nil, 'BBB');
        Items.Add(nil, 'CCC');
        Items.AddChild(Items[2], '111');
        Items.AddChild(Items[2], '222');
        Items.AddChild(Items[2], '333');
      end;
    end;
    
    //列举带有复选框的项
    procedure TForm1.Button1Click(Sender: TObject);
    var
      Node: TTreeNode;
      TVI: TTVItem;
    begin
      for Node in TreeView1.Items do
      begin
        TVI.mask := TVIF_STATE;
        TVI.hItem := Node.ItemId;
        TreeView_GetItem(TreeView1.Handle, TVI);
        if TVI.state and $2000 = $2000 then
          ShowMessage(Node.Text);
      end;
    end;
    
    //取消所有选中(这是后来补充的, 所以效果图上没有)
    procedure TForm1.Button2Click(Sender: TObject);
    var
      Node: TTreeNode;
      TVI: TTVItem;
    begin
      for Node in TreeView1.Items do
      begin
        TVI.mask := TVIF_STATE;
        TVI.hItem := Node.ItemId;
        TVI.stateMask := TVIS_STATEIMAGEMASK;
        TVI.state := $2000 shr 1;
        TreeView_SetItem(TreeView1.Handle, TVI);
      end;
    end;
    
    //选中所有(这是后来补充的, 所以效果图上没有)
    procedure TForm1.Button3Click(Sender: TObject);
    var
      Node: TTreeNode;
      TVI: TTVItem;
    begin
      for Node in TreeView1.Items do
      begin
        TVI.mask := TVIF_STATE;
        TVI.hItem := Node.ItemId;
        TVI.stateMask := TVIS_STATEIMAGEMASK;
        TVI.state := $2000;
        TreeView_SetItem(TreeView1.Handle, TVI);
      end;
    end;
    
    end.
    
  • 相关阅读:
    JVM010JVM有哪些垃圾收集器
    MySQL005MySQL复制的原理是什么
    MySQL002MVCC解决的问题是什么
    MySQL007MySQL索引结构有哪些,各自的优劣是什么
    JVM011如何解决线上gc频繁的问题
    MySQL003MVCC实现原理是什么
    MySQL004MySQL的隔离级别有哪些
    MySQL006MySQL聚簇索引和非聚簇索引的区别
    MySQL001什么是MVCC
    MySQL008MySQL锁的类型有哪些
  • 原文地址:https://www.cnblogs.com/del/p/1198645.html
Copyright © 2011-2022 走看看