Delphi中为TreeView添加单选和复选框

　　第三，上面的代码解决的是状态图标转换的问题，那如何解决在鼠标单击和键盘选择之后就改变状态呢？下面给出实现代码：

　　(1)当鼠标单击时，代码如下：

procedure TForm1.TreeView1Click(Sender: TObject); 　　var 　　 P:TPoint; 　　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;

　　因为篇幅所限，上面的例子给出是最简单的一个情况，如果要编写更为专业的软件，请读者朋友充分发挥想象，一定做出更好的效果(如图四)。