设置ListView显示CheckBox

Posted 2021-02-16 cyzgg

最近在开发的时候用到ListView，简单总结一下它的用法。

1.让ListView像DBGrid数据库那样显示数据：将ListView的ViewStyle设置为vsReport。

2.向ListView中添加数据：我的数据是从数据库中查询得到的，比如我用的是ADOQuery, 先定义变量：

var

   MyItem：TListItem

begin

ADOQuery1.First;
   while not ADOQuery1.Eof do
     begin
        MyItem:= self.ListView1.Items.Add;
         MyItem.Caption:= ADOQuery1.FieldByName(‘sfxm‘).AsString;      
          MyItem.SubItems.Add(ADOQuery1.FieldByName(‘qm‘).AsString);    
          MyItem.SubItems.Add(ADOQuery1.FieldByName(‘zm‘).AsString);    
         MyItem.SubItems.Add(ADOQuery1.FieldByName(‘sys‘).AsString);   
         MyItem.SubItems.Add(ADOQuery1.FieldByName(‘sfbz‘).AsString);  
         MyItem.SubItems.Add(ADOQuery1.FieldByName(‘ysje‘).AsString);

         MyItem.SubItems.Add(ADOQuery1.FieldByName(‘yf‘).AsString);   
         MyItem.SubItems.Add(ADOQuery1.FieldByName(‘cbr‘).AsString);   
          MyItem.SubItems.Add(ADOQuery1.FieldByName(‘ID‘).AsString);
      ADOQuery1.Next;
    end;

end;

这样ListView就可以像DBGrid那样显示数据了。

3.设置ListView显示CheckBox：只需在属性中将CheckBoxes设置为True即可。

4.让ListView显示CheckBox后，或许需要得到ListView哪一行被（打勾）选中。这个我是用一个简单的循环判断。比如说我想实现这个功能：当ListView某行被选中后，TotalL(TLable控件)能够动态的计算被选中行的第4列的值。我的代码如下：

procedure TF_qfjf.ListView1Click(Sender: TObject);
var
    I: Integer;
    Total : Double;
begin
   Label17.Caption:= ‘‘;
Total:= 0;
    for I:= 0 to ListView1.Items.Count - 1 do
      if ListView1.Items.Item[I].Checked = True then
         Total:= Total + StrToFloat(ListView1.Items[I].SubItems.Strings[4]);
     TotalL.Caption:= FloatToStr(Total) + ‘    ‘ + ‘RMB‘;
end;

注:ListView列的序号这样计算，左侧第一列是标签,不做计算，第二列是0,第三列是1,依此类推