Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.005 c