一、设置窗口的KeyPreview属性为True
二、编写窗口的KeyUp事件
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  {type TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble);}
  if char(key)='M' then
    if Shift=[ssCtrl] then
      showmessage('ok');