怎样将ListView中的内容拷贝到剪贴板？

[chinajavis]

利用右键菜单或者选中某些行后ctrl+c能实现吗？

[woshihaoge]

你说的是需要在自己程序中实现这个功能还是Windows下的通用方法？
如果是在自己程序中实现功能的话，可以用代码实现的。

[老之]

连个PopupMenu

uses Clipbrd;

var Item:TListItem;

Item := ListView1.Selected;
Clipbrd.Clipboard.AsText := Item.Caption;

[chinajavis]

不仅仅是Caption，我是用vsReport的方式，ListView有不少SubItem的，我要像拷贝一个表格一样的将
ListView中一行行内容拷贝到Clipboard，然后在word文件中ctrl+v粘贴上去

[老之]

var i,j:integer;
s:string;
begin
s :='';
for i:= 0 to ListView1.Items.Count -1 do
begin
s := s + ListView1.Items[i].Caption +' ';
for j:=0 to ListView1.Items.Item[i].SubItems.Count -1 do
s := s + ' ' +ListView1.Items.Item[i].SubItems[j];
s := s + #13#10;
end;
Clipbrd.Clipboard.AsText := s;
end;

[chinajavis]

谢谢楼上的老大，能不能粘贴为表格的形式啊？呵呵，那就更好了！

[踢踏]

各个字段间的分隔符为Tab，word可能会自动识别为表格。以上仅是猜测，可以试试。

[chinajavis]

楼上的好像不行，用Tab后粘贴出来的还是Tab，继续求助！

[踢踏]

呵呵，那就自己再处理一下吧
在Word里面，表格－转换－文字转换成表格，再设置一下，就是一张表格了