Мультиудаление в ListBox

← →
Ned © (2007-05-06 19:05) [0]

Добрый день!

Пытаюсь организовать удаление сразу нескольких строк в ListBox. loMultiLine - включён (хотя мультивыделение работало и до этого). Пользуюсь вот таким кодом:

procedure TForm1.ListBox1KeyDown(Sender: PControl; var Key: Integer; Shift: Cardinal); begin if Key = VK_DELETE then ListBox1.DeleteLines(ListBox1.SelStart, ListBox1.SelStart+ ListBox1.SelLength); end;

Но он совешенно не хочет работать! Пр выделении нескольких строк и нажатии Delete почему-то выделяется первая строка, но удаления не происходит! Даже если вместо параметров написать просто (2,5), то и в этом случае строки остаются.
В чём ошибка?

Заранее спасибо!

← →
Дмитрий К (2007-05-06 20:12) [1]

DeleteLines только для edit, memo, richedit.
Для ListBox
procedure Delete( Idx: Integer );

← →
Compiler © (2007-05-06 21:48) [2]

procedure TForm1.ListBox1KeyDown(Sender: PControl; var Key: Integer; Shift: Cardinal); var i:integer; begin i:=0; if key=vk_Delete then while i<>Listbox1.Count do if Listbox1.ItemSelected[i] then Listbox1.Delete(i) else Inc(i); end;
Если выделенных строк много выполнеятся значительное время. Не оптимально, зато работает.

Compiler, Дмитрий, большое спасибо! Сделаю через for :)

Мультиудаление в ListBox Найти похожие ветки