如何显示键入的键的名称？
如何显示键入的键的名称？
提问于 2019-03-29 04:44:48
我想在TEdit中显示按下的键的名称。
例如，虽然专注于TEdit并且键入A将显示A在相同的TEdit中。按下另一个按钮，如space酒吧，将显示SPACE。
我不知道从哪里开始，我认为THOTKey是一个选项，但我无法输入我想要的空间。
Stack Overflow用户
发布于 2019-03-29 14:33:37
使用KeyDown事件而不是KeyPress事件。然后，您可以使用以下代码获得按下的键的文本表示：
uses Vcl.Menus;
procedure TForm1.Edit1KeyDown(
Sender: TObject; var Key: Word; Shift: TShiftState);
begin
TEdit(Sender).Text := ShortCutToText(ShortCut(Key, Shift));
Key := 0;
end;
// Disable default behavior in other events
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
Key := #0;
end;
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
Key := 0;
end;
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/-100008997
复制相关文章
相似问题
腾讯云开发者
