Delphi中如何检测ctrl-t按键

Delphi中如何检测ctrl-t按键,delphi,Delphi,我有一个带TEdit控件的Win32窗体。当用户在TEdit控件处于焦点时按下CTRL-t时,我想使用OnKeyUp事件检测它。我需要一个代码示例,请使用Key和/或Shift变量。谢谢。将表单的KeyPreview设置为True,然后为表单的OnKeyUp事件编写以下代码: procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (Key = 84) and (Shif

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

将表单的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秒就发现了这一点,而且很有效。谢谢