各位大大~請問怎麼將一個listbox裡的項目全選呢?謝謝~~

procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin ListBox1.MultiSelect := True; For I:= 0 to ListBox1.Items.Count-1 do ListBox1.Selected[I] := True; end;

SO-TOP 您好：    插花一下！ wameng 已解決您的問題了！ 一個類似的方法也可以，大家參考一下：

procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.MultiSelect := True;
  ListBox1.SelectAll;
end;

RichTop 敬上 =====***** 把數學當工具，可以解決問題；將數學變能力，能夠發現並解決問題！ =====#####