Form中有如下控件:
ListView : TListView
Label1 : TLabel
Label2 : TLabel
1、ListView的checkboxes属性为true;
2、用户点击ListView中没条记录前面的checkbox时(实际上是有Item的checked属性改变时),Label1的Caption变为checked := true的Item的数目
3、用户点击某个Item时,Label2的Capition显示这个Item各个字段的值我自己用OnChange事件和OnClick来实现,可是总是得不到想要的效果,多点几次后就乱套了似的。
希望大家能给个完整的例子,谢谢!
ListView : TListView
Label1 : TLabel
Label2 : TLabel
1、ListView的checkboxes属性为true;
2、用户点击ListView中没条记录前面的checkbox时(实际上是有Item的checked属性改变时),Label1的Caption变为checked := true的Item的数目
3、用户点击某个Item时,Label2的Capition显示这个Item各个字段的值我自己用OnChange事件和OnClick来实现,可是总是得不到想要的效果,多点几次后就乱套了似的。
希望大家能给个完整的例子,谢谢!
begin
if Item.Checked then
............
end;
-------------------------------------------------------
本回复由大傻的破玩意儿【CSDN's forum Explorer】完成!
软件功能强大,速度超快!!支持中...
软件下载地址:http://CoolSlob.ys168.com
先写个统计选中item的总数的函数
function GetCount: integer;
var
I, J: integer;
begin
J := 0;
for I := 0 to ListView1.Items.Count - 1 do
begin
ListView1.Items[I].Selected := False;
if ListView1.Items[I].Checked = True then
begin
J := J + 1; end;
end;
Result := J;
end;
然后在onClick
label1.Caption := inttostr(GetCount);
Change: TItemChange);
var
i :integer;
begin if item.Checked then
begin
Label2.Caption := item.Caption; for i := 0 to item.SubItems.Count - 1 do
begin label2.Caption := Label2.Caption+item.SubItems.Strings[i]; end;
end;
end;
click会触发change事件吗?