请教:如何在程序中的任何地方用一个热键呼出程序中的一个特定窗口?(50分)

我在写一个数据库管理程序,客户要求在程序的任何地方能用一个热键呼出一个特定的查询窗口,请教如何实现,谢谢.
Delphi7+interbase

在OnKeyDown事件里加上弹出窗体代码就行了啊.

不行啊,总不能在每个窗口里都加吧,太麻烦了,
我是要求在程序的任何地方都能进行呼出操作的啊

再给你个例子...这个肯定行.

......
public
procedure WMHotKey(var Message: TWMHOTKEY); message WM_HOTKEY;
................

procedure TForm1.FormCreate(Sender: TObject);
begin
//注册ctrl+shift+alt+a热键
RegisterHotKey(Handle, GlobalAddAtom('hotkey'), MOD_CONTROL+MOD_ALT+MOD_SHIFT, ord('A'));
end;

procedure TForm1.WMHotKey(var Message: TWMHOTKEY);
begin
//按下热键所执行的事件
application.MessageBox('内容','标题',mb_ok);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//在关闭时注销热键
UnregisterHotKey(Handle, GlobalAddAtom('hotkey'));
end;

加进主窗体里面就可以了.

[]谢谢!行了