Скрытие фокуса у MenuItem

[Комиссар Катани]

Здравствуйте!

Возникла следующая проблема, решить которую самостоятельно, увы, не получается.

Задача
Решил сделать альтернативу главному меню MainMenu. Для этого на форме расположил панель кнопок ToolBar. Кнопки создаются динамически. Для каждой кнопки динамически создаётся котекстное меню PopupMenu и сопоставляется через свойство DropdownMenu каждой кнопки.

Проблема
При нажатии на кнопку появляется меню, первый элемент которого выделен, хотя в момент появления меню курсор мыши расположен над кнопкой, находящейся в нажатом состоянии (картинка прилагается).

Т.е. как я понимаю, для решения этой проблемы необходимо как-то отбирать фокус у котекстного меню?

[Stilet]

Предположу, что нужно использовать функции HiliteMenuItem() или SetMenuDefaultItem() из WIN API.

[Комиссар Катани]

Спасибо за подсказку! Но, похоже, этот трюк не работает.

procedure TForm1.OnToolMenuPopup(Sender: TObject);
var
  k : Boolean;
begin
  k:=HiliteMenuItem(Handle,(Sender as TPopupMenu).Handle,0,MF_BYPOSITION+MF_UNHILITE);
  Form1.Caption:=BoolToStr(k,True);
end;

Для отладки результат постоянно возвращает True, однако выделение (highlighting) с первого элемента меню не исчезает.

Пишу на Delphi 6.0 под Windows 7.

[Комиссар Катани]

Такой код тоже не снимает выделение:

procedure TForm1.OnToolMenuPopup(Sender: TObject);
var
  k : Boolean;
  ItemInfo: TMenuItemInfo;
begin
  GetMenuItemInfo((Sender as TPopupMenu).Handle, 0, True, ItemInfo);
  ItemInfo.fState:=ItemInfo.fState or MFS_UNHILITE;
  SetMenuItemInfo((Sender as TPopupMenu).Handle, 0, True, ItemInfo);
  //k:=HiliteMenuItem(PopupList.Window,(Sender as TPopupMenu).Handle,0,MF_BYPOSITION+MF_UNHILITE);
  //Form1.Caption:=BoolToStr(k,True);
end;