Тема: Як задати гарячі клавіші для TMenuItem?
Навпроти пунктів меню зʼявляються відповідні позначки про гарячі клавіші, але натиснення на клавіші нічого не дає.
const
functionalKeysCodes: array [0..10] of String = ('F1', 'F2', 'F3', 'F4', 'F5',
'F6', 'F7', 'F8', 'F9', 'F10', 'F11');
var
mi: TMenuItem;
begin
for I := 0 to iu.Count - 1 do
begin
mi := TMenuItem.Create(PopupMenu1);
if I <= 10 then
mi.ShortCut := TextToShortCut(functionalKeysCodes[i]);
PopupMenu1.Items.Add(mi);
mi.OnClick := MenuItemClick;
end;
end;