如何在Delphi中检测ctrl -t keypress

Question

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

Answer 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;