Как программно заставить выпасть меню

Delphi , Компоненты и Классы , Меню

Автор: InSAn

В примере показано как показать меню и выбрать в нем какой-то пункт, эмулируя нажатие "быстрой кдавиши" пункта меню. Если у Вашего пункта меню нет "быстрой клавиши" Вы можете посылать комбинации VK_MENU, VK_LEFT, VK_DOWN, и VK_RETURN, чтобы программно "путешествовать" по меню.

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Allow button to finish painting in response to the click
  Application.ProcessMessages;
  {Alt Key Down}
  keybd_Event(VK_MENU, 0, 0, 0);
  {F Key Down - Drops the menu down}
  keybd_Event(ord('F'), 0, 0, 0);
  {F Key Up}
  keybd_Event(ord('F'), 0, KEYEVENTF_KEYUP, 0);
  {Alt Key Up}
  keybd_Event(VK_MENU, 0, KEYEVENTF_KEYUP, 0);
  {F Key Down}
  keybd_Event(ord('S'), 0, 0, 0);
  {F Key Up}
  keybd_Event(ord('S'), 0, KEYEVENTF_KEYUP, 0);
end;

Статья описывает способ программного вывода меню на экран с помощью псевдоповторения нажатия клавиш 'Alt' и 'F', а также навигации по нему с помощью комбинаций клавиш VK_MENU, VK_LEFT, VK_DOWN и VK_RETURN.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Меню ::