ListBox的多选

  • 主题发起人 主题发起人 import
  • 开始时间 开始时间
I

import

Unregistered / Unconfirmed
GUEST, unregistred user!
一次将多个选择加入另外一个Listbox:
procedure TForm_Department_Staff.Button_AddClick(Sender: TObject);
var
Iitemno,Ino: Integer;
begin
Iitemno:=0;
with ListBox1 do
for Ino:=0 to Items.Count-1 do
begin
if Selected[Ino] then
begin
Iitemno:=Ino;
Break;
end;
end;
with ListBox1 do
begin
ListBox2.Items.Clear;
for Ino:=Iitemno to Iitemno+(ListBox1.SelCount-1) do
begin
ListBox2.Items.Add(Items[Ino]);
end;
end;
end;
 

Similar threads

S
回复
0
查看
685
SUNSTONE的Delphi笔记
S
S
回复
0
查看
645
SUNSTONE的Delphi笔记
S
S
回复
0
查看
896
SUNSTONE的Delphi笔记
S
S
回复
0
查看
873
SUNSTONE的Delphi笔记
S
后退
顶部