Additional页上有一个TApplicationEvent控件。
可以实现运用程序的功能键,例如按F1显示帮助,F2显示查询窗口等等。
具体做法:
放ApplicationEvent在程序主窗口,在ApplicationEvent的OnMessage事件写:
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if Msg.message=WM_KeyDown then
if msg.wParam=vk_f1 then
begin
ShowMessage('帮助');
...//创建帮助窗口
handled:=True;
end;
end;
---------------------------------------------------------------
举例: