0

Добрый день!

Есть форма с главным меню в виде DevExpess-овского' TDxBar. В меню есть пункт с ShortCut.

Дальше на форме есть несколько гридов, с TPopUpMenu меню в которых есть также пункты с таким же ShortCut, но выполняющие другое действие.

TDxBar, как известно, перехватывает все события нажатия клавиш и сам их переваривает, ни до грида, ни до Application.OnMessage дело не доходит.

У TDxBarManager есть событие:

OnHandleKey(Sender: TObject; AKey: Word;  AShift: TShiftState; var AHandled: Boolean)

В нем пока у меня получается перебрать все пункты меню на форме, найти тот у которого ShortCut совпадает с нажатыми клавишами и выполнить его метод, но как-то это работает задумчиво, да и из-за того что гридов несколько не получается выйти на активный.

Нельзя ли как-то из этого события вызвать метод IsShortCut у TPopUpMenu? Для этого я так понимаю надо как-то сформировать сообщение TWMKey. Но как превратить в него имеющиеся запчасти, пока не очень понимаю. Ну или каким-то еще образом найти пункт меню у активного грида?

4
  • AHandled := False; знаете что делает, пробовали ставить, не помогает?
    – Kromster
    12 дек 2017 в 12:18
  • Он при входе в процедуру false. А дальше уходит и срабатывает на пункт меню.
    – Daugawpils
    12 дек 2017 в 12:24
  • Нашел решение. Обход в цикле всех TForm.Components и вызов у каждого 'TPopUpMenu.IsShortCut' С передачей TWMKey созданного так.
    – Daugawpils
    12 дек 2017 в 13:59
  • Разместите как ответ?
    – Kromster
    12 дек 2017 в 17:19

0

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge you have read our privacy policy.

Посмотрите другие вопросы с метками или задайте свой вопрос.