2.如何在用户点击了一个button后将cxlistview用户选中项的几列数据存入一个临时表中.
cxlistview是dev公司的控件,用法与delphi本身的listview差不多,如果有listview的例子也可以参考一下.
谢谢
5 个解决方案
#1
在cx的demo中找找看看有没有例子
#2
找了很长时间没找到,还在找
#3
1.cxlistview控件中设置了checkbox为true,如何在用户每选中一个项就在一个label.caption中显示用户选中项的数量.
2.如何在用户点击了一个button后将cxlistview用户选中项的几列数据存入一个临时表中.
cxlistview没装。。试试看,我是根据其它树猜测的:
1.找找看有没有OnChecking事件,如果有就在该事件里算选中项(getCheckCount之类的,没的就遍历每个结点,看看结点有没有Checked属性)
2.遍历每个结点,是Checked的就存入
#4
两个问题都可以用遍历Listview实现
#5
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
s,i:integer;
begin
s:=0;
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
s:=s+1;
Label1.Caption:=inttostr(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
showmessage(listview1.Items[i].Caption);//你这儿可以换成往临时表导入的语句
end;
Change: TItemChange);
var
s,i:integer;
begin
s:=0;
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
s:=s+1;
Label1.Caption:=inttostr(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
showmessage(listview1.Items[i].Caption);//你这儿可以换成往临时表导入的语句
end;
#1
在cx的demo中找找看看有没有例子
#2
找了很长时间没找到,还在找
#3
1.cxlistview控件中设置了checkbox为true,如何在用户每选中一个项就在一个label.caption中显示用户选中项的数量.
2.如何在用户点击了一个button后将cxlistview用户选中项的几列数据存入一个临时表中.
cxlistview没装。。试试看,我是根据其它树猜测的:
1.找找看有没有OnChecking事件,如果有就在该事件里算选中项(getCheckCount之类的,没的就遍历每个结点,看看结点有没有Checked属性)
2.遍历每个结点,是Checked的就存入
#4
两个问题都可以用遍历Listview实现
#5
procedure TForm1.ListView1Change(Sender: TObject; Item: TListItem;
Change: TItemChange);
var
s,i:integer;
begin
s:=0;
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
s:=s+1;
Label1.Caption:=inttostr(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
showmessage(listview1.Items[i].Caption);//你这儿可以换成往临时表导入的语句
end;
Change: TItemChange);
var
s,i:integer;
begin
s:=0;
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
s:=s+1;
Label1.Caption:=inttostr(s);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
if listview1.Items[i].Checked then
showmessage(listview1.Items[i].Caption);//你这儿可以换成往临时表导入的语句
end;