Delphi 1
Использование выбранных элементов 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]