| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

отловить клавишу Delete [D7, XP]

Dmitry_177 ©   (2007-11-09 21:56:00) 

В ListBox-е имеются строки, нужно по нажатию клавишы Delete удалять текущую строку, делаю так:

 if Key = #16 then
   Button3.Click;

в Button3Click и есть весь код удаления(по нажатию кнопки тоже удаляется). Так вот нажатие клавиши не отлавливается и из-за этого никакого удаления не происходит..

---

Dmitry_177   (2007-11-09 22:05:00) [1]

спасибо :)

---

DVM   (2007-11-09 22:00:00) [2]

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
 if Key = VK_DELETE then windows.Beep(500,50);
end;

---

Kolan   (2007-11-09 21:58:00) [3]

Сделайте Action, в нем удаление, назначте его кнопке, и задайте еме ShortCut «Del».

---

Наверх