J
jh922
Unregistered / Unconfirmed
GUEST, unregistred user!
是这样：我做了两个ListBox，中间有个“->”按纽，ListBox1中选中一行，然后按"->"；
这一行在ListBox1中消失，出现在ListBox2中。
我想实现这个功能，请问我该怎么做？
这一行在ListBox1中消失，出现在ListBox2中。
我想实现这个功能，请问我该怎么做？
X
xiao_min
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i := 0 to (ListBox1.Items.Count - 1) do
begin
if ListBox1.Selected then
begin
listbox2.Items.Add(ListBox1.Items.Strings);
listbox1.Items.Delete(i);
break;
end;
end;
end;
var
i:integer;
begin
for i := 0 to (ListBox1.Items.Count - 1) do
begin
if ListBox1.Selected then
begin
listbox2.Items.Add(ListBox1.Items.Strings);
listbox1.Items.Delete(i);
break;
end;
end;
end;
D
dongberlin
Unregistered / Unconfirmed
GUEST, unregistred user!
if ListBox1.ItemIndex<>-1 then
begin
ListBox2.Add(ListBox1.Items[ListBox1.ItemIndex]));
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
begin
ListBox2.Add(ListBox1.Items[ListBox1.ItemIndex]));
ListBox1.Items.Delete(ListBox1.ItemIndex);
end;
X
xiao_min
Unregistered / Unconfirmed
GUEST, unregistred user!
agree do
ngberlin
比我的好
ngberlin
比我的好
笨
笨笨鱼
Unregistered / Unconfirmed
GUEST, unregistred user!
有个笨办法，就是删除ListBox1的对应字段，再在ListBox2中加入不就得了。[
]
]
C
coldew
Unregistered / Unconfirmed
GUEST, unregistred user!
我和dongberlin,,,是一样的。
笨笨鱼的就不怎么好
先删除后又怎么加呢是不是要申请一个变量。
还是先加后删的好。
笨笨鱼的就不怎么好
先删除后又怎么加呢是不是要申请一个变量。
还是先加后删的好。
B
bluerain
Unregistered / Unconfirmed
GUEST, unregistred user!
Delphi IDE中菜单New,选择属性页Forms,选择Dule List Box,OK.
看看Borland是这么写的吧.
看看Borland是这么写的吧.
J
jh922
Unregistered / Unconfirmed
GUEST, unregistred user!
呵呵，thanbks!不过dongberlin,中有一个小问题：ListBox2.Add应该改成
ListBox2.Items.Add是他的笔误。
加分！请验收
ListBox2.Items.Add是他的笔误。
加分！请验收
L
luyear
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
