Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.24;
Скачать: CL | DM;

Вниз

Убрать HotKeys в меню   Найти похожие ветки 

 
Катерина ©   (2003-11-14 13:40) [0]

Я в run-time добавляю в меню разделы:

If Menu_file.Count = 8
then Menu_file.Add(TMenuItem.Create(Owner))
else Menu_file.Insert(8,TMenuItem.Create(Owner));

Menu_file.Items[8].Caption := ExpandFileName(Filename);
...

при этом в Menu_file.Items[8].Caption добавляется значек "&" в самых различных местах. Как мне избавиться от этих горячих клавиш в меню? Заранее спасибо.


 
Skier ©   (2003-11-14 14:20) [1]

TMenuItem.AutoHotkeys ?


 
Катерина ©   (2003-11-14 14:55) [2]

Да в том-то и дело, что я все перепробовала (и maAutomatic, и maManual, и maParent), но все равно в имена разделов меню попадают эти аксереторы. Причем я проследила: Capture присваивется "чистая" строка, без акселераторов, но после того, как меню активизиралось, они там появляются.


 
Skier ©   (2003-11-14 14:58) [3]

>Катерина © (14.11.03 14:55) [2]
Нужно выставлять AutoHotkeys до того как присваивается Caption.

т.е.


Menu_file.Items[8].AutoHotkeys := maManual;
Menu_file.Items[8].Caption := ExpandFileName(Filename);


Не поможет ?


 
Катерина ©   (2003-11-14 15:09) [4]

Само собой, так и делала, не помогло.


 
Skier ©   (2003-11-14 15:18) [5]

А если так ?


Menu_file.AutoHotkeys := maManual;
//..............
Menu_file.Items[8].AutoHotkeys := maManual;
Menu_file.Items[8].Caption := ExpandFileName(Filename);


 
Катерина ©   (2003-11-14 15:21) [6]

А так работает. Спасибо!


 
Skier ©   (2003-11-14 15:24) [7]

>Катерина © (14.11.03 15:21) [6]
Понятно. Горячие клавиши проставляются в зависимости от св-ва
ParentMenu.AutoHotkeys, если у "детей" этого Parent-а стоит AutoHotkeys := maManual; Вроде бы так...



Страницы: 1 вся ветка

Текущий архив: 2003.11.24;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.161 c
1-78994
Татьяна
2003-11-14 10:58
2003.11.24
Компоненты для Отчетов


3-78860
gedd
2003-10-29 11:27
2003.11.24
ADSI Как получить реквизиты пользователя в домене?


14-79133
xGhost
2003-11-01 10:12
2003.11.24
Давайте поговорим о разработки плагинов


4-79217
Sandman25
2003-09-30 17:31
2003.11.24
ExpandName?


1-78893
safo
2003-11-12 16:29
2003.11.24
Как переделать приложение в сервис ОС?