| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

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

mtx ©   (2008-12-20 14:56:00) 

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

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

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

---

Jon   (2008-12-20 21:04:00) [1]

You are welcome :-)

---

mtx   (2008-12-20 21:01:00) [2]

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

---

Jon   (2008-12-20 20:24:00) [3]


 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 20:09:00) [4]

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

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

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


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

---

Jon   (2008-12-20 20:07:00) [5]


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


---

Jon   (2008-12-20 18:08:00) [6]


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


---

Наверх