至顶网›软件频道 ›基础软件›Delphi中为TreeView添加单选和复选框

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

在Delphi中，TreeView也被封装成了VCL组件，它的位置在“Win32组件”面板上，是我们最常用的几个组件之一。

作者：小刀轻舞来源：天极开发 2007年10月31日

关键字：

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

　　(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;