如何在listbox中移去选中的项。(50分)

  • 主题发起人 主题发起人 wst
  • 开始时间 开始时间
W

wst

Unregistered / Unconfirmed
GUEST, unregistred user!
如何在listbox中移去选中的项。
 
令选中的 listbox1.item.string:=''可以
 
listbox1.items.delete(listbox1.itemindex)
 
我的想法是创建两个listbox1,listbox2,当选中listbox1中的项时(可多选),点击一按钮,选中的项就移到listbox2,listbox1中的项被清除。当选中listbox2中的项,按另一按钮时,选中的项被移到listbox1.listbox2中的项被清除。
 
listbox2.items.add(listbox1.items[listbox1.itemindex]);
listbox1.items.delete(listbox1.itemindex);
 
cakk,好象在多选的情况下,不能实现.
 
呵呵,多选用我的笨方法,一行一行实现
 
for i := listbox1.Items.Count - 1do
wnto 0do
if listbox1.selected then

begin
listbox2.items.add(listbox1.items;
listbox1.items.delete(listbox1.items);
end;
 
感谢cakk,dreamtiger.这种方法很好,但移到另一边的数据排列位置倒了。这是为什么。虽然无关紧要,但给人的感觉不是那么好。
 
天,你用for i :=0 to (listbox1.Items.Count - 1)do
顺序不就对了
 
不会吧? 你打算一点脑筋也不动?
 
各位见笑了,兄弟一时糊涂了。还望今后多指教,给予鼓励!那就按功行赏吧!
 
wst?myyzg?the same one?
 
接受给分呀!
 
多人接受答案了。
 
wst?myyzg?the same one?
yes!呵呵,自己给自己加分 :-)
 
后退
顶部