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