带CheckBox全选功能var i:Integer; begin for I := 0 to lstqq.Items.Count - 1 do begin lstqq.Items[i].Checked:=True; end; end;删除所选：var i:Integer; begin for i :=lstqq.items.Count - 1 dow
var item: TListItem; I:integer; begin listView1.ViewStyle := vsReport;// 设置ListView为报表形式 listView1.Columns.Add; // 增加1列 listView1.Columns.Add; // 再增加1列 listView1.Column[0].Caption := '序号';
Copyright © 2005-2025 51CTO.COM 版权所有 京ICP证060544号
