Delphi中为TreeView添加单选和复选框
减小字体
增大字体| 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; |
在窗体上的摆放TreeView、ImageList、Button和一个Memo组件
因为篇幅所限，上面的例子给出是最简单的一个情况，如果要编写更为专业的软件，请读者朋友充分发挥想象，一定做出更好的效果(如图四)。
 充分发挥想象，一定做出更好的效果 |
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“Delphi中为TreeView添加单选和复选框”更多相关内容
中查找“Delphi中为TreeView添加单选和复选框”更多相关内容评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论