用快捷键执行单据界面事件

procedure OnFormKeyDown(var Key: Word; Shift: TShiftState);
  begin
     if Key=112 then //VK_F1
      PostMessage(Self.Handle, WM_Print, 2, PP_Print);
      case Key of
        122: BitBtnNewBill.Click;  ///VK_F11
        123: BtnRead.Click;        //VK_F12
      end
  end;