For I:=0 to ListView.Items.count do
begin
if ListView.items[I].Selected then
//DO
end;
begin
if ListView.items[I].Selected then
//DO
end;
解决方案 »
- 如何得到一个托盘图标的UID?
- 急!奇怪,AdoDataSet竟然说找不到参数!
- 紧急求助:IP4000中select fields dialog box里的设置(比如Display,Edit Control,Masks)在程序里用代码动态写,怎么做?
- 如何得到一个属性的所有可能的取值?
- 在线求助:DELPHI 二维数组的使用
- vb里有没有和Delphi中的ScrollBox类似的控件
- 能否请您(高手)相助写一函数,谢谢!!!
- 高薪诚聘Delphi程序员。
- 制作桌面小程序,例如在桌面上爬来爬去的虫子,是对桌面不停的画?还是做一个窗口?
- SQL2000的一个小问题.
- 急求一ping程序原代码!
- 如何安装paradox数据库应用程序(急用!)
for i:= 0 to ListView.Items.Count-1 do
if ListView.Items[i].Selected then showmessage('test');
var s:string;
begin
if ListView.items[I].Selected then
begin
S:=listView.Items[I].SubItems[0]
listView.Items[I].SubItems[1]
...列数-1
//DO
end;
end;
你自己定义个TListItem
var
MyItem:TListItem;
begin
for i:= 0 to ListView.Items.Count-1 do
if ListView.Items[i].Selected then
begin
MyItem:=ListView.Items[i];
showMessage(MyItem.caption);
for j:=0 to MyItem.SubItems.count-1 do
showMessage(MyItem.SubItems[j]);
end;end;