如何在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;