永发信息网

如何判定delphi listview 中checkbox 选中数目

答案:2  悬赏:30  手机版
解决时间 2021-03-11 05:05
  • 提问者网友:伴风望海
  • 2021-03-10 23:04
如何判定delphi listview 中checkbox 选中数目
最佳答案
  • 五星知识达人网友:長槍戰八方
  • 2021-03-11 00:02
TStringGrid,TDrawGrid控件;
TDBGrid,数据库表格控件,连接数据库后自动按照数据库字段显示。

属性自己看。方法有动态提示。不明白,选住后F1,看帮助。
按Ctrl键,用鼠标点属性或方法,可以查看控件原代码。Delphi的原代码是公开的。
全部回答
  • 1楼网友:一把行者刀
  • 2021-03-11 00:08
{给你写了个例子,新建一个工程,然后上面放一个listview和一个按钮。判断是否选中用listview1.selcount 、 判断是否选中某一节点可用listview1.selected.caption = '5' 或者listview1.itemindex = 7 都可以,下面例子点5或者点7都是通过判断得到的。} unit unit1; interface uses windows, messages, sysutils, variants, classes, graphics, controls, forms, dialogs, comctrls, stdctrls; type tform1 = class(tform) listview1: tlistview; button1: tbutton; procedure button1click(sender: tobject); procedure formcreate(sender: tobject); private { private declarations } public { public declarations } end; var form1: tform1; implementation {$r *.dfm} procedure tform1.button1click(sender: tobject); begin if listview1.selcount > 0 then //如果选中节点 begin if (listview1.selected.caption = '5') //通过caption判断是否选中某一节点 or (listview1.itemindex = 7) then //通过itemindex判断是否选中某一节点 showmessage('test') else showmessage(listview1.selected.caption); //取选中节点的caption end; end; procedure tform1.formcreate(sender: tobject); var aitem: tlistitem; i: integer; begin listview1.items.clear; for i:= 0 to 10 do begin aitem:= listview1.items.add; //添加item aitem.caption:= inttostr(i); //设置新增item的caption end; aitem.free; end; end.
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯