问如何显示键入的键的名称？

EN

1. 创建一个新的VCL项目。
2. 删除TEdit窗体上的控件并清除其Text属性。
3. 在它的OnKeyPress事件处理程序中，写 procedure TForm5.Edit1KeyPress(Sender: TObject; var Key: Char); begin if Sender is TEdit then case Key of chr(VK_SPACE): begin TEdit(Sender).SelText := ' SPACE '; Key := #0; end; end; end;
4. 运行该项目。

我将把它作为练习让你研究实施的细节。

请注意：TEdit(Sender)类型转换本质上是不安全的：如果Sender不是TEdit（或者你知道的东西完全兼容），你就有一个主要的错误。这就是为什么这个代码在if Sender is TEdit then条件之下; 这使它非常安全。

使用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;