Клавиши ускорителя меню не отображаются (Delphi 2009)

Существует стандартная настройка Windows (в свойствах дисплея), которая обычно скрывает эти ускорители, если не удерживается клавиша Alt. Это объясняет, почему открытие меню с помощью Alt + F10 показывает их вам. Может в этом причина?

[РЕДАКТИРОВАТЬ]: Нет, это не так. Я только что попробовал, и простой TForm с элементом меню показывает ускоритель, но как только я добавляю TImageList и устанавливаю ImageIndex для отдельного элемента меню или просто устанавливаю OwnerDraw в значение true, подчеркивание ускорителя исчезает. Я предполагаю, что это действительно ошибка в VCL.

Кстати, это в Windows XP.

Временное решение:

Я отлаживал это с помощью Delphi 2009 в Windows XP 64, и основная причина отсутствия ускорителей, похоже, заключается в том, что Windows отправляет WM_DRAWITEM сообщения с установленным флагом ODS_NOACCEL, чего не должно быть, если система настроена на постоянное отображение ускорителей. . Таким образом, можно сказать, что это не ошибка VCL, а проблема Windows, которую VCL не может решить.

Однако вы можете обойти это в своем собственном коде, вам просто нужно сбросить флаг перед передачей сообщения в VCL. Переопределить процесс окна

protected
  procedure WndProc(var Message: TMessage); override;

вот так:

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.

Это «функция», представленная в Windows 2000:

Старая новая вещь: Почему Windows скрывает ускорители клавиатуры и прямоугольники фокуса по умолчанию?

Похоже, что Delphi 4 не поддерживает эту функцию Windows.

Чтобы в меню 2000 и XP отображались клавиши-ускорители, щелкните правой кнопкой мыши пустое место на рабочем столе, выберите «Свойства», перейдите на вкладку «Внешний вид» и в разделе «Эффекты» снимите флажок Скрывать подчеркнутые буквы для навигации с помощью клавиатуры, пока я не нажму клавишу Alt . Дважды щелкните ОК.