Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Вниз

отловить клавишу Delete   Найти похожие ветки 

← →
Dmitry_177   (2007-11-09 21:56) [0]

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

 if Key = #16 then
   Button3.Click;

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

---

← →
Kolan ©   (2007-11-09 21:58) [1]

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

---

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

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

---

← →
Dmitry_177   (2007-11-09 22:05) [3]

спасибо :)

---

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

Форум: "Начинающим";
Текущий архив: 2007.12.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.051 c