Использование выбранных элементов TListBox
...это будет действительно классно, если я смогу просто переместить выбранные элементы в StringList. Или, например, вообще удалить невыбранные элементы из ListBox.
Следующий код перемещает все выбранные элементы ListBox1 в ListBox2:
| procedure TForm1.Button1Click(Sender: TObject); var ix:integer; begin with ListBox1 do begin if SelCount < 1 then exit; for ix := 0 to Items.Count-1 do if Selected[ix] then ListBox2.Items.Add(Items[ix]); for ix := Items.Count-1 downto 0 do if Selected[ix] then Items.Delete(ix); end; end; |
=== Mike Orriss === [000692]
