热键!!!在祖先Form中定义了热键，如其子孙窗口中如何调用?

Question

换言之，在祖先Form中定义的热键,如何让它在子孙窗口中成为一个事件样的供调用?
  如：1.procedure TFrmParent.FormCreate(Sender: TObject);
         Var
             vs_status :String;
        begin
             id:=GlobalAddAtom('hotkey');
             RegisterHotKey(handle,id,mod_control,83);
        End;
      
  2.procedure TFrmParent.FormDestroy(Sender: TObject);
      begin
        UnRegisterHotKey(handle,id); //别忘了在退出时取消定义
      end;
  3.想定义一个事件在子孙窗口中可见，在安上面的热键时触发

Answer 1

在子孙窗口中 uses 祖先窗口的 Unit.

Answer 2

为什么要这么做???如果是同一个程序的话..可以在APPLICATION.ONMESSAGE中写入你的操作..这样你无论在哪个窗体都可以共用了..但前提是要有相对应的消息处理..

Answer 3

热键怎么用你应该知道吧在父类中，定义一个虚函数procedure DoCtrlW;vitrual，当收到热键消息就调用这个函数
定义一个事件属性property  OnCtrlW:TNotifyEvent read FOnCtrlW write FOnCtrlW;
在子类中，重载这个虚函数，
procedure Doctrlw;override;
begin
  inherited;
  if assigned(OnCtrlW) then
    OnCtrlW(nil);
end;事件 OnCtrlW就是你要的热键触发的事件。