delphi - 捕获 'delete'按键

Question

我不知道如何捕获删除按键。我发现在 ASCII 代码表中，它位于 127 位，但是 if (Key = #127) then 却无济于事。

然后我检查了 VK_DELETE 的值，它是 47。尝试使用它，但没有成功。

KeyPreview := true 在我的表单中设置。

我尝试将 ShowMessage(IntToStr(Ord(Key))) 添加到 Forms KeyPress 事件，但在单击 Delete 键时从未收到消息弹出窗口.

我需要处理动态创建的编辑字段中的删除按键。我想控制用户可以在该字段中删除文本的哪些部分，并且我知道如何使用 Backspace 键处理文本删除，现在需要弄清楚如何使用 Delete 进行删除键。

谢谢

Answer 1

您应该处理 OnKeyDown 而不是 OnKeyPress 事件。如果您这样做，那么 VK_DELETE 应该适合您。请注意，OnKeyDown 和 OnKeyUp 的参数是 Word，而不是 OnKeyPress< 的 Char/.