Удаляем строки клавишей

@AHBAR · Регистрация: 05.04.2013

Author24 — интернет-сервис помощи студентам

Странно, не до конца получается все.. есть код:

Delphi

procedure TCompare.ListBox2KeyPress(Sender: TObject; var Key: Char);
Begin
if (Key = Char(VK_DELETE)) then ListBox2.DeleteSelected;
StatusBar1.Panels[1].Text := 'Всего: ' + IntToStr(ListBox2.Count);
end;

Удаляются строки только по клавише delete из цифрового блока клавиатуры, и то если раскладка правильно стоит.
А как сделать чтобы строки удалялись другой клавишей delete?
(Key = #46) -тоже самое

@Puporev · 22.01.2015, 07:59

Замените на

Delphi

1	ListBoxKeyDown();

@AHBAR · 22.01.2015, 08:41 **[ТС]**

Вообще не удаляет:

Delphi

procedure TCompare.ListBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if (Key = VK_DELETE) then ListBox1.DeleteSelected;
StatusBar1.Panels[0].Text := 'Всего: ' + IntToStr(ListBox1.Count);
end;

@Puporev · 22.01.2015, 08:47

Сообщение от AHBAR

Вообще не удаляет:

Ну почему у меня-то удаляет? Выделяю строку в Listbox, жму клавишу Delete строка удаляется, Если выключаю NumLock, то удаляется и по клавише Del на цифровой клавиатуре.

@AHBAR · 22.01.2015, 10:05 **[ТС]**

Какой-то подвох! создал новый проект, там удаляется. а в моем не хочет)

@Puporev · 22.01.2015, 10:13

Сообщение от AHBAR

а в моем не хочет)

А можешь сюда выложить архив именно этого проекта?

@AHBAR · 22.01.2015, 11:23 **[ТС]**

Нужная форма - Compare, вызывается из меню главной формы - Файл - Импорт из MNP

@Puporev · 22.01.2015, 12:19

Так и не понял отчего это. Если написать

Delphi

1	if (Key = 32) then ListBox1.DeleteSelected;

то по нажатию на пробел строки удаляются.
Также удаляются и по нажатию Delete если в меню на форме 1 выбрать Открыть файл.

@AHBAR · 22.01.2015, 12:55 **[ТС]**

Видимо проблема исчезнет если переписать программу заново.. а так пока создал в меню подменю "удалить" который удаляет selected одновременно из обоих ListBox'ов и назначил ShortCut Del

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.01.2015, 08:47	4
	Сообщение от AHBAR Вообще не удаляет: Ну почему у меня-то удаляет? Выделяю строку в Listbox, жму клавишу Delete строка удаляется, Если выключаю NumLock, то удаляется и по клавише Del на цифровой клавиатуре. 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,140
	22.01.2015, 10:05 [ТС]	5
	Какой-то подвох! создал новый проект, там удаляется. а в моем не хочет) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.01.2015, 10:13	6
	Сообщение от AHBAR а в моем не хочет) А можешь сюда выложить архив именно этого проекта? 0

@AHBAR 1077 / 488 / 316 Регистрация: 05.04.2013 Сообщений: 2,140
	22.01.2015, 12:55 [ТС]	9
	Видимо проблема исчезнет если переписать программу заново.. а так пока создал в меню подменю "удалить" который удаляет selected одновременно из обоих ListBox'ов и назначил ShortCut Del 0