Захват «Удалить» нажатие клавиши

Question

Я не могу понять, как захватить Удалить нажатие клавиши. я узнал, что в ASCII кодовой таблицы, она находится на 127 месте, но if (Key = #127) then не получил меня нигде.

Затем я проверил значение VK_DELETE которое было 47. Пытались использовать, но это не сработало.

The KeyPreview := true установлен в моей форме.

Я попытался добавить ShowMessage(IntToStr(Ord(Key))) к событию Forms KeyPress, но у меня никогда не было всплывающего окна сообщения, нажимая кнопку . Удалить.

Мне нужно обработать Удалить нажатие клавиши в динамическом режиме. Редактировать поля. Я хочу контролировать, какая часть текстового пользователя может стереть в этом поле, и я знаю, как обрабатывать удаление текста с помощью Backspace ключ, теперь нужно выяснить, как это сделать с помощью Удалить ключ.

Благодаря

Answer 1

Вы должны регулируем OnKeyDown вместо OnKeyPress события. Если вы это сделаете, то VK_DELETE должен работать на вас. Обратите внимание, что параметр для OnKeyDown и OnKeyUp является Word, не Char за OnKeyPress.

Answer 2

Mghie имеет правильный ответ, вот пример:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
    Shift: TShiftState); 
begin 
    if Key=VK_DELETE then 
    showmessage('Delete key was pressed'); 
end; 

Обратите внимание, что пользователь может удалить текст, используя вырез в буфер обмена, так что вы, возможно, придется справиться с этим, а также.

Answer 3

Вы можете использовать OnKeyDown событие для фильтрации нежелательного Удалить нажатой клавиши:

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: 
    TShiftState); 
begin 
    if Key = VK_DELETE then begin 
    Beep; 
    Key:= 0; 
    end; 
end;