Решение проблемы отображения ускорительных клавиш в Delphi 2009

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

Пользователи, работающие с Delphi, могут столкнуться с проблемой, когда ускорительные клавиши в меню приложения не отображаются при определенных условиях. Ускорительные клавиши — это важный элемент интерфейса, позволяющий пользователям быстро выбирать пункты меню с помощью клавиатуры. В Delphi для их создания используется символ & в названии пункта меню.

Описание проблемы

В Delphi 4 и более ранних версиях все работало корректно: ускорительные клавиши отображались в дизайнере и во время выполнения программы. Однако после обновления до Delphi 2009 пользователи столкнулись с проблемой: ускорительные клавиши отображались в дизайнере, но не отображались в выполненной программе, если открывать меню с помощью мыши. При использовании клавиш Alt+клавиша ускорительного ключа меню отображалось с подчеркнутыми ускорительными клавишами.

Возможные причины

Проблема может быть связана с изменениями в Delphi 2009, а также с новыми настройками операционной системы, которые по умолчанию скрывают ускорительные клавиши до тех пор, пока пользователь не нажмет клавишу Alt.

Подтвержденный ответ

Разработчик mghie предположил, что проблема может быть связана с тем, что Windows отправляет сообщения WM_DRAWITEM с флагом ODS_NOACCEL, который не должен быть установлен, если в системе активирована функция отображения ускорительных клавиш. Это привело к разработке workaround, который заключается в переопределении обработчика сообщений окна (WndProc) для сброса этого флага перед передачей сообщения VCL.

procedure TYourForm.WndProc(var Message: TMessage);
const
  ODS_NOACCEL = $100;
var
  pDIS: PDrawItemStruct;
  ShowAccel: BOOL;
begin
  if (Message.Msg = WM_DRAWITEM) then begin
    pDIS := PDrawItemStruct(Message.LParam);
    if (pDIS^.CtlType = ODT_MENU)
      and SystemParametersInfo(SPI_GETKEYBOARDCUES, 0, @ShowAccel, 0)
    then begin
      if ShowAccel then
        pDIS^.itemState := pDIS^.itemState and not ODS_NOACCEL;
    end;
  end;
  inherited;
end;

Этот код предназначен только для демонстрации и не должен вызывать SystemParametersInfo() каждый раз при получении сообщения WM_DRAWITEM, а должен вызываться один раз при запуске программы и при получении сообщения WM_SETTINGCHANGE.

Альтернативный ответ

Пользователь @EdwinYip предложил, что проблема может быть связана с "функцией", представленной в Windows 2000, которая по умолчанию скрывает ускорительные клавиши и рамки фокуса, пока пользователь не нажмет клавишу Alt. Для отображения ускорительных клавиш в меню в Windows XP необходимо в свойствах рабочего стола снять галочку с пункта "Скрывать подчеркнутые буквы для навигации с клавиатуры, пока я не нажму клавишу Alt". В Windows Vista настройка аналогичная, но находится в Центре упрощения доступа.

Вывод

Проблема отображения ускорительных клавиш в Delphi 2009 может быть решена с помощью переопределения обработчика сообщений окна для сброса флага ODS_NOACCEL или путем изменения настроек операционной системы. Оба подхода требуют дополнительного внимания и тестирования, так как могут влиять на поведение других элементов пользовательского интерфейса.

Эта статья предназначена для специалистов, работающих с Delphi, и может помочь в решении типичных проблем, связанных с ускорительными клавишами и их отображением в меню приложений.

Создано по материалам из источника по ссылке.

Решение проблемы отображения ускорительных клавиш в Delphi 2009 может быть связано с изменениями в работе обработки сообщений и может потребовать переопределения обработчика сообщений окна для корректного отображения ускорительных клавиш в меню.

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

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

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