Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.25;
Скачать: CL | DM;

Вниз

Мультиудаление в 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;

Если выделенных строк много выполнеятся значительное время. Не оптимально, зато работает.


 
Ned ©   (2007-05-07 06:18) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2007.11.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
15-1193231407
Pweq
2007-10-24 17:10
2007.11.25
Как вычислить arccos через arctan?


15-1192869376
hahol_64_rus
2007-10-20 12:36
2007.11.25
блокнотик


15-1192999930
SerJaNT
2007-10-22 00:52
2007.11.25
ACDSee 3.0


2-1194093148
kolj
2007-11-03 15:32
2007.11.25
Помогите пожалуйста


15-1193341207
@!!ex
2007-10-25 23:40
2007.11.25
Объясните?