Текущий архив: 2011.02.06;
Скачать: CL | DM;
Вниз
Акселератор меню (без 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;
← →
mtx © (2008-12-20 21:01) [5]Jon, спасибо. Впечатляет скорость и оперативность Вашей поддержки.
← →
Jon © (2008-12-20 21:04) [6]You are welcome :-)
Страницы: 1 вся ветка
Текущий архив: 2011.02.06;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.004 c
