将一个listview的数据移到另外一个(100分)

  • 主题发起人 主题发起人 newlinn
  • 开始时间 开始时间
N

newlinn

Unregistered / Unconfirmed
GUEST, unregistred user!
主窗里有一个listview MDI窗里有一个listview
现在要求 双击MDI窗中的listview 一行 可以将那行的首列的数据
传递到主窗中的listview的 首行中去
小弟初来 只有这么些分了 望各位高手详细告知!!
 
ListView1.Items.Assign(ListView2.Items)
 
procedure TForm1.ListView_SlaveDblClick(Sender: TObject);
var ListItem ; TListItem;
begin
if ListView_Slave.Items[0].Selected then
begin
ListItem := ListView_Main.Items.Add;
ListItem.Caption := ListView_Slave.Items[0].Caption;
end;
end;
 
是这样的
主窗以及由他生成的MDI窗体 各有一个listview
我是想 在主窗中设置一个public变量
通过双击 MDI窗中的listview 中的那行 就将那行的首列的值取出
之后赋值给那个public变量 在由public变量赋值到主窗的listview的第一行

再双击双击 MDI窗中的listview中的另外一行 又取出那一行的首列的值
之后赋值给那个public变量 在由public变量赋值到主窗的listview的第二行

如此反复。。。。
不知道我的叙述清楚了没有 望高手详细告知。。。。。不甚感谢。。。
 
感谢回帖
试验下
 
我觉得你没说明白
你最好举个小例子说明一下

因为我从你的描述中,可以判断如下
1.你是想把首列的数据放到首行里,有列变行
2.你的主窗体的LISTVIEW只有一列???????
不很清楚
 
不是这个意思
是有两个listview MainForm.ListView MDIForm.ListView
现在双击MDIForm.ListView中的一行, 取出那一行的首列的值,接着这行不再响应事件(不好意思新加了一点东西).
取出的值赋值给MainForm.ListView的首行.
双击MDIForm.ListView中的另一行,就取出那一行的首列的值,接着这行不再响应事件.
这个值就赋值给MainForm.ListView的第二行.
如此反复........
 
listview1.seleted.subitems.string[0]表示第2列
listview1.seleted.caption 表示第一列
 
来自:newlinn, 时间:2006-11-13 21:34:43, ID:3622086
listview1.seleted.subitems.string[0]表示第2列
listview1.seleted.caption 表示第一列


既然这个你都知道,我不明白你还有什么地方搞不懂的呢
 
这个...呵呵...
我重新翻了书.找出来的.
 
后退
顶部