选择框树型控件 checkTreeview TTreeView

最新推荐文章于 2017-03-07 18:01:30 发布

原创最新推荐文章于 2017-03-07 18:01:30 发布 · 395 阅读

0 ·

CC 4.0 BY-SA版权

Delphi 专栏收录该内容

266 篇文章

订阅专栏

本文介绍了一种在Delphi中实现带复选框的树形视图组件的方法。通过自定义TCheckTreeview类继承自TTreeView，并重写CreateParams方法来启用复选框样式。此外，还提供了用于检查节点状态的IsChecked函数和设置节点状态的SetChecked过程。

unit CheckTreeview;

interface

uses
  Windows, Messages, SysUtils, Classes, Controls,Commctrl,ComCtrls;
const
   TVIS_CHECKED = $2000;
type
  TCheckTreeview = class(TTreeView)
  private
    { Private declarations }
  protected
    { Protected declarations }
    procedure CreateParams(var Params: TCreateParams); override;
  public
    { Public declarations }
    function IsChecked(Node :TTreeNode) :Boolean;
    procedure SetChecked(Node :TTreeNode; Checked :Boolean);
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TCheckTreeview]);
end;

{ TCheckTreeview }

procedure TCheckTreeview.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.Style:=Params.Style or TVS_CHECKBOXES;
end;

function TCheckTreeview.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;

procedure TCheckTreeview.SetChecked(Node: TTreeNode; Checked: Boolean);
var
  TvItem :TTVItem;
begin
  FillChar(TvItem, SizeOf(TvItem), 0);
  with TvItem do begin
    hItem     := Node.ItemId;
    Mask      := TVIF_STATE;
    StateMask := TVIS_STATEIMAGEMASK;
    if Checked then
      TvItem.State :=TVIS_CHECKED
    else
      TvItem.State :=TVIS_CHECKED shr 1;
    TreeView_SetItem(Node.TreeView.Handle, TvItem);
  end;
end;
end.