Акселератор меню (без MCK)

← →
mtx © (2008-12-20 14:56) [0]

Не могу разобраться, как прикрепить к пункту меню акселератор, например клавиши <Ctrl+O> (от слова Open) для пункта меню с текстом "Открыть файл".

Также не смог добиться, чтобы работали быстрые клавиши, например, клавиши <Alt+1> для пункта меню с текстом "&1. Open".

Работаю без MCK, т.е. чистый код с библиотекой KOL, на Турбо-Дельфи.

← →
Jon © (2008-12-20 18:08) [1]

var MainMenu: PMenu; begin MainMenu := NewMenu(Applet,0,["&Open File"+#9+"Ctrl+O",""],nil); MainMenu.ItemAccelerator[00] := MakeAccelerator(FVIRTKEY or FCONTROL,Ord("O")); end;

← →
Jon © (2008-12-20 20:07) [2]

MainMenu := NewMenu(Applet,0,["File","(","&Open File"+#9+"Ctrl+O",")",""],nil); MainMenu.ItemAccelerator[1] := MakeAccelerator(FVIRTKEY or FCONTROL,Ord("O"));

← →
mtx © (2008-12-20 20:09) [3]

Jon, спасибо. С акселератором получилось.

А вот 2-я проблема осталась:

> Также не смог добиться, чтобы работали быстрые клавиши,
> например, клавиши <Alt+1> для пункта меню с текстом "&1.
> Open".

А может в KOL пока не добавлена такая фича?

← →
Jon © (2008-12-20 20:24) [4]

MainMenu := NewMenu(Applet,0,["File","(","&Open File"+#9+"Ctrl+O","&1. Test"+#9+"Alt+1",")",""],nil); with MainMenu^ do begin ItemAccelerator[1] := MakeAccelerator(FVIRTKEY or FCONTROL,Ord("O")); ItemAccelerator[2] := MakeAccelerator(FVIRTKEY or FALT,Ord("1")); end;

Jon, спасибо. Впечатляет скорость и оперативность Вашей поддержки.

You are welcome :-)

Акселератор меню (без MCK) Найти похожие ветки