| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Мультиудаление в ListBox [Delphi 7, Windows]
Ned © (2007-05-06 19:05:00)Добрый день!
Пытаюсь организовать удаление сразу нескольких строк в 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), то и в этом случае строки остаются.
В чём ошибка?
Заранее спасибо!
Ned (2007-05-07 06:18:00) [1]Compiler, Дмитрий, большое спасибо! Сделаю через for :)
Compiler (2007-05-06 21:48:00) [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;
Если выделенных строк много выполнеятся значительное время. Не оптимально, зато работает.
Дмитрий К (2007-05-06 20:12:00) [3]DeleteLines только для edit, memo, richedit.
Для ListBox
procedure Delete( Idx: Integer );
| |
