zhaojinghui(撒哈拉之雨的悲伤)的方法就可以!
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
ListBox1.MultiSelect := true;//这条语句也要
for i := 0 to ListBox1.Items.Count-1 do
begin
ListBox1.Selected[i] := true;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
// ListBox1.MultiSelect := true;
for i := 0 to ListBox1.Items.Count-1 do
begin
ListBox1.Selected[i] := true;
end;
end;