delphi 设置窗体热键/快捷键/组合键

举例:

当我按下ESC键时,不管焦点在哪里,我都要关闭这个窗体

实现:

1.勾选窗体的 KeyPreview属性

 

 然后设置窗体的OnKeyDown事件,#27是ESC键,如果是组合键,请用Shift参数来判断

procedure TCalculator.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if Char(Key)=#27 then
      SELF.Close ;
end;