procedure TForm2.abfApplicationProperties1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin try
if ((GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = Ord('N')))or
((GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = Ord('F'))) then begin
    Handled := True;
    Exit;
end;
if GetForegroundWindow=Handle then begin
   if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = Ord('S')) then begin
      Handled := True;
      if SavePage1.Enabled then SavePage1Click(nil);
      if (SaveVideoAudioFile1.Visible and SaveVideoAudioFile1.Enabled) then SaveVideoAudioFile1Click(nil);
      exit;
   end;
   if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = Ord('I')) then begin
      Handled := True;
      if SavePage1.Enabled then SaveAllPictures1Click(nil);
      exit;
   end;
   if ((Msg.Message = WM_KEYDOWN) and (Msg.wParam = 116)) then begin
      Handled := True;
      if RefreshthisArticle1.Enabled then RefreshthisArticle1Click(nil);
      if (RefreshmediaList2.Visible and RefreshmediaList2.Enabled) then Refreshmedialist1Click(nil);
   end;
   if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = 122) then begin
      Handled := True;
      WikiBrowserOptions1Click(nil);
   end;
   if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = Ord('W')) then begin
      Handled := True;
      if CoverPage1.Enabled then CoverPage1Click(nil);
      exit;
   end;
   if ((Msg.Message = WM_KEYDOWN) and (Msg.wParam = 114)) then begin
      Handled := True;
      if SearchandHighlight1.Enabled then SearchandHighlight1Click(nil);
   end;
   if (GetKeyState(VK_CONTROL) < 0) and (Msg.Message = WM_KEYDOWN) and (Msg.wParam = 112) then begin
      Handled := True;
      WikiBrowse_CentralClick(nil);
      exit;
   end;
   if ((ActiveControl=minfo_list)and(Msg.Message = WM_KEYDOWN) and (Msg.wParam = 34)) then begin
      Handled:=true;
      exit;
   end;
end;
try
if form6<>nil then begin
   if ((form6.ActiveControl=form6.FlatListBox1)and(Msg.Message = WM_KEYDOWN) and (Msg.wParam = 34)) then begin
   Handled:=true;
   exit;
   end;
end;
if form9<>nil then begin
   if ((form9.ActiveControl=form9.list1)and(Msg.Message = WM_KEYDOWN) and (Msg.wParam = 34)) then begin
   Handled:=true;
   exit;
   end;
end;
except end;

if ((Msg.Message = WM_KEYDOWN) and (Msg.wParam = 112)) then begin
   Handled := True;
   WikiBrowseHelp1Click(nil);
end;
except
on E : Exception do _log_entry_error(E.ClassName,E.Message,'F10000');
end;End;