Delphi中为TreeView添加单选和复选框
  打开电脑，进⼊Windows操作系统，在资源管理器的左边栏中清楚地显⽰了系统管理的所有磁盘的信息以及各个磁盘所容纳的⽂件与⽂件夹(如图⼀)。这种常见的显⽰⽅式是由⼀个根节点和若⼲个⼦节点构成的，这被称为“树形结构”。这种树形结构的⽤途⾮常⼴泛，在很多常⽤软件中都出现过它的⾝影。Windows中将这种结构封装为“树形控件”，即TreeView控件，它与ListView、Button等⼀样都属于系统⾃带的通⽤公共控件。在Delphi中，TreeView也被封装成了VCL组件，它的位置在“Win32组件”⾯板上，是我们最常⽤的⼏个组件之⼀。
  Delphi⾃带的TreeView组件可以显⽰树形结构，也可以为每个节点指定不同的图标来区分各⾃的功能。但在平时的使⽤中，我们发现它并不能嵌⼊CheckBox或者是RadioButton组件，这样⽤户就不能直观地选择某⼀部分节点或某个节点。如何来解决这个问题呢?我们思考之后发现，有两种思路可以完成前⾯所述的任务。⼀种是在TreeView组件的基础上继承的它的功能，并添加所要的功能(使TreeView能嵌⼊CheckBox或者是RadioButton组件)即重写⼀个组件。另⼀种是利⽤⽤户的错觉，将CheckBox或者是RadioButton所能实现的外观⽤两种状态的图⽚(⼀种是选中状态另⼀种是未选中状态)来交替显⽰，⾛迂回路线来完成任务。我们来分析⼀下这两种⽅法的优缺点：第⼀种⽅法要重写⼀个组件，显然难度较⼤，所⽤时间较长；第⼆种⽅法，利⽤TreeView组件本⾝就具备的显⽰图标功能，简便易⾏，所⽤时间短，能够完成需求。⽐较之后，我们选择作⽤第⼆种⽅法，先来看⼀下完成之后的效果(如图⼆)，应该说是达到了
⽬的，现在我们来细述⼀下完成的过程：
  ⾸先，我们在Win32⾯板上选择ImageList组件，设置它的StateImages属性，包括两种状态的图标，⼀种是选中状态，另⼀种是未先中状态。
  其次，我们调⽤ToggleTreeView过程(实现⽅法见后⽂)，实现在⿏标单击和键盘选择的状态下改变状态图标的功能。
  ToggleTreeView过程实现代码如下：
  procedure ToggleTreeViewCheckBoxes(
  Node :TTreeNode;
  cUnChecked, //CheckBox未选中状态
  cChecked, //CheckBox选中状态
  cRadioUnchecked, //RadioButtion未选中状态
  cRadioChecked :integer); // RadioButtion选中状态
  var
  tmp:TTreeNode;
  begin
  if Assigned(Node) then
  begin
  //如果当前是未选中状态则变为选中状态
  if Node.StateIndex = cUnChecked then
  Node.StateIndex := cChecked
  //如果当前是选中状态则变为未选中状态
  else if Node.StateIndex = cChecked then
  Node.StateIndex := cUnChecked
  else if Node.StateIndex = cRadioUnChecked then
  begin
  tmp := Node.Parent;
  if not Assigned(tmp) then
  tmp := TTreeView(Node.TreeView).FirstNode
  else
  tmp := FirstChild;
  while Assigned(tmp) do
  begin
  if (tmp.StateIndex in
  [cRadioUnChecked,cRadioChecked]) then
  tmp.StateIndex := cRadioUnChecked;
  tmp := NextSibling;
  end;
  Node.StateIndex := cRadioChecked;
  end; // if StateIndex = cRadioUnChecked
  end; // if Assigned(Node)
  end;
  第三，上⾯的代码解决的是状态图标转换的问题，那如何解决在⿏标单击和键盘选择之后就改变状态呢?下⾯给出实现代码：  (1)当⿏标单击时，代码如下：
  procedure TForm1.TreeView1Click(Sender: TObject);
  var
  P:TPoint;
checkbox和radiobutton的区别
  begin
  GetCursorPos(P); //得到光标的位置
  P := TreeView1.ScreenToClient(P);
  if (htOnStateIcon in
  TreeView1.GetHitTestInfoAt(P.X,P.Y)) then
  ToggleTreeViewCheckBoxes(
  TreeView1.Selected,
  cFlatUnCheck,
  cFlatChecked,
  cFlatRadioUnCheck,
  cFlatRadioChecked);
  end;
  (2)当键盘选择时，代码如下：
  procedure TForm1.TreeView1KeyDown(
  Sender: TObject;
  var Key: Word;
  Shift: TShiftState);
  begin
  if (Key = VK_SPACE) and
  Assigned(TreeView1.Selected) then
  ToggleTreeViewCheckBoxes(
  TreeView1.Selected,
  cFlatUnCheck,
  cFlatChecked,
  cFlatRadioUnCheck,
  cFlatRadioChecked);
  end;
  最后，我们给出⼀个⼩例⼦，来验证⼀下的我们试验的结果。在窗体上的摆放TreeView、ImageList、Button和⼀个Memo组件(如图三)，在加⼊上⾯的代码之后，我们来编写这个Button的单击事件的代码：
  procedure TForm1.Button1Click(Sender: TObject);
  var
  BoolResult:boolean;
  tn : TTreeNode;
  begin
  if Assigned(TreeView1.Selected) then
  begin
  tn := TreeView1.Selected;
  BoolResult := tn.StateIndex in
  [cFlatChecked,cFlatRadioChecked];
  Memo1.Text := tn.Text +
  #13#10 +
  ''Selected: '' +
  BoolToStr(BoolResult, True);
  //Memo给出所选中的节点和当前的状态
  end;
  end;
  因为篇幅所限，上⾯的例⼦给出是最简单的⼀个情况，如果要编写更为专业的软件，请读者朋友充分发挥想象，⼀定做出更好的效果(如图四)。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。