设置multiselect:=true;在uses里加入clipbrd; 然后用如下代码;procedure TForm1.Button1Click(Sender: TObject); var i:integer; s:string; begin clipboard.Clear; for i:=0 to listbox1.Count-1 do begin if listbox1.Selected[i] then s:=s+listbox1.Items[i]+#13#10; end; clipboard.AsText:=s;end;
然后用如下代码;procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s:string;
begin
clipboard.Clear;
for i:=0 to listbox1.Count-1 do
begin
if listbox1.Selected[i] then
s:=s+listbox1.Items[i]+#13#10;
end;
clipboard.AsText:=s;end;