ListBox的多选

一次将多个选择加入另外一个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;