отловить клавишу 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]

спасибо :)

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