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

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

TStringGrid,TDrawGrid控件；
TDBGrid,数据库表格控件，连接数据库后自动按照数据库字段显示。

属性自己看。方法有动态提示。不明白，选住后F1，看帮助。
按Ctrl键，用鼠标点属性或方法，可以查看控件原代码。Delphi的原代码是公开的。

{给你写了个例子，新建一个工程，然后上面放一个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.