listview 的一个问题(100分)

D

doit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #1

我的目的是把数据库中的记录以listview的形式显示出来，让用户选择一部分进行处理
现在在listview1 中是供选择的记录，listview2则是用户选择的，想让用户自由的增删，
类似于delphi的dual list box，不知该如何让listview1的行赋给listview2,
希望各位老大帮忙

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #2

笨，先在listview2里面添加一个，然后删除listview1里面的不就行了。

怎么不动动脑子

 

S

sonie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #3

用listview的items add,delete方法
比如把listview1的第五个节点移到listview2
则如是
var
TListItem pItem;
begin
pItem:=ListView2.Items.add;
pItem.Caption:=ListView1.Items.Item[5].Caption;//如要为选中的则用listview1.ItemFocused
ListView1.Items.Item[5].Delete;

end;

 

D

doit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #4

sonie 的只能转移caption，
但是下面的subitem我不知怎么给listview2 赋值啊

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #5

我靠，你是我见过的最笨的一个!

pItem.Caption:=ListView1.Items.Item[5].Caption;
pItem.subitems[0]:=ListView1.Items.Item[5].subitems[0]
pItem.subitems[1]:=ListView1.Items.Item[5].subitems[1]
pItem.subitems[2]:=ListView1.Items.Item[5].subitems[2]
...
ListView1.Items.Item[5].Delete;

 

D

doit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #6

谢了各位，我想问题解决了。不好意思，我对这个不太熟，让各位见笑了

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #7

我来改一下：
var
pItem : TListItem ;
begin
pItem:=ListView2.Items.add;
pItem.Assign(ListView1.Items.Item[1]) ;//如要为选中的则用listview1.ItemFocused
ListView1.Items.Item[1].Delete;
end;

这样就可以了，大家拿分吧。

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #8

>我靠，你是我见过的最笨的一个!
>
> pItem.Caption:=ListView1.Items.Item[5].Caption;
> pItem.subitems[0]:=ListView1.Items.Item[5].subitems[0]
> pItem.subitems[1]:=ListView1.Items.Item[5].subitems[1]
> pItem.subitems[2]:=ListView1.Items.Item[5].subitems[2]
> ...
> ListView1.Items.Item[5].Delete;

晕倒！ TListItem.SubItems ： TStrings; 用的着这样吗？
最多 pItem.subitems:=ListView1.Items.Item[5].subitems；

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #9

assign不错，比大哥我的方法好。

 

一

一个过客

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #10

奶奶的，敢跳我的毛病？？！！

你还不是一样！
ListView1.Items.Item[1]写成ListView1.Items[1]就行了！!!!!!!!!!

 

L

lha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #11

to 一个过客:
>> ListView1.Items.Item[1]写成ListView1.Items[1]就行了！!!!!!!!!!

多谢 指教，

 

D

doit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-13

• #12

不好意思，分数不多，多多见谅