Главная страница
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.016 c
1-79052
Князев Сергей
2003-11-12 12:58
2003.11.24
Проблема с TRxRichEdit


1-78988
Татьяна
2003-11-14 15:04
2003.11.24
TF1Book


6-79081
beglec
2003-09-29 01:13
2003.11.24
Некоторые изменения в Delphi 7


14-79112
Voprosik
2003-11-02 12:46
2003.11.24
Стоит ли менять GeForceFX 5200 на Titanium 4200???


4-79247
o2
2003-09-28 08:57
2003.11.24
String vs PAnsiChar