listbox怎么取得所有选择了的项的值

Question

如题

Answer 1

edit1.text:=listbox1.Items.Strings[listbox1.ItemIndex];if listbox1.items[i].selected then 
    listbox2.add(listbox1.items[i]); 

Answer 2

listbox.Items[listbox.ItemIndex]
适用于单项的情况edit1.text:=listbox1.Items.Strings[listbox1.ItemIndex]; if listbox1.items[i].selected then 
    listbox2.add(listbox1.items[i]); 
适用于多项的情况

Answer 3

var i: integer;for i:=0 to listbox.items.count-1 do begin
  if listbox.items[i].selected then XXX
end;

Answer 4

listbox.items[i].selected这个属性无效，我用D7,我的想法是判断listbox中有哪几项被选择了，并且取出被选择项额值（多选情况）

Answer 5

还没搞定吗,给你做了一下,这个肯定行
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to ListBox1.Items.Count-1 do
  if ListBox1.Selected[i] then
     memo1.Lines.Add(ListBox1.Items[i]);
end;

Answer 6

 
  ListBox1.MultiSelect:=True;
  
  for i:=0 to ListBox1.Items.Count-1 do
    if ListBox1.Selected[i] then
      ListBox2.Items.add(ListBox1.Items[i]);