Удалить все выделенные элементы списка
Главная Статьи Окно списка (ListBox) Удалить все выделенные элементы списка

Удалить все выделенные элементы списка

Оцените материал
(1 Голосовать)

Удалить все выделенные элементы списка

procedure TForm1.Button1Click(Sender: TObject);
 var
   i: integer;
 begin
   for i := ListBox1.Items.Count - 1 downto 0 do
     // перебираем весь список
     if ListBox1.Selected[i] then  // если выделена строка, удаляем
       ListBox1.Items.Delete(i);
 end;
Другие материалы в этой категории: « OwnerDraw для Listbox Щелчок в пустой области TListBox »

Авторизация



Счетчики