如何在 Delphi 中检测 ctrl-t 按键

【问题标题】：How to detect ctrl-t keypress in Delphi如何在 Delphi 中检测 ctrl-t 按键
【发布时间】：2011-03-01 08:22:13
【问题描述】：

我有一个带有 TEdit 控件的 Win32 窗体。当用户在 TEdit 控件处于焦点时按下 CTRL-t 时，我想使用 OnKeyUp 事件检测它。我需要一个代码示例，请使用 Key 和/或 Shift 变量。谢谢。

【问题讨论】：

标签： delphi

【解决方案1】：

将表单的 KeyPreview 设置为 True，然后为表单的 OnKeyUp 事件编写以下代码：

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if (Key = 84) and (Shift = [ssCtrl]) then
    ShowMessage('Ctrl+t is pressed!');
end;

【讨论】：

是的，我在您发帖前 30 秒发现它有效。谢谢！