怎么注册窗体热键

如何注册窗体热键？
注册2个个窗体热键，F1和Q，（非全局热键）
当按下F1的时候showmessage('你按下了F1')
当按下Q的时候showmessage('你按下了Q')
并且需要对鼠标的坐标做个判定，假如鼠标在（100-200，100-200)这个矩形范围内的时候才生效（相对于窗体的坐标，不是相对于屏幕），如果鼠标不在这个范围内则热键无效。应该怎么实现？请给出代码，谢谢

[解决办法]
桌面放1个label1用来显示鼠标位置

Delphi(Pascal) code

...  private    HotKey1,HotKey2:Integer;    procedure HotKey(var Msg:Tmessage);message WM_HOTKEY;    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.HotKey(var Msg:Tmessage);var  pt: TPoint;begin  GetCursorPos(pt);  pt:=ScreenToClient(pt);  if (pt.X>100) and (pt.X<200)  and (pt.Y>100) and (pt.Y<200) then  begin    case Msg.LParamHi of      vk_F1:showmessage('你按下了F1');      81:showmessage('你按下了Q');    end;  end;end;procedure TForm1.FormCreate(Sender: TObject);begin  HotKey1:=GlobalAddAtom('HotKey1')-$C000;  HotKey2:=GlobalAddAtom('HotKey2')-$C000;  RegisterHotKey(Handle,hotkey1,0,vk_F1);  RegisterHotKey(Handle,hotkey2,0,81);end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);begin   UnRegisterHotKey(handle,HotKey1);   UnRegisterHotKey(handle,HotKey2);end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  label1.Caption:='X:'+IntToStr(X)+' Y:'+IntToStr(Y);end;
[解决办法]
如果是全局的hotkey，可以：
Delphi(Pascal) code
用RegisterHotKey, 下面的热键在全局（即使当前激活的是其他进程）有效procedure TForm1.FormCreate(Sender: TObject);beginRegisterHotKey(Handle,123,MOD_CONTROL,integer('A'));//123是自己定义的id ，热键是 ctrl+Aend;Tform1 类定义加上一行：procedure ON_WM_HOTKEY(var m:TMessage);message WM_HOTKEY;procedure TForm1.ON_WM_HOTKEY(var m: TMessage);beginif(m.WParam=123)then  //如果id是123windows.Beep(1000,1000);end;