Главная страница
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.039 c
1-78974
Armen
2003-11-13 17:53
2003.11.24
How to debug ISAPI DLL s on Windows 2003 with IIS6


1-79050
Andrey V.
2003-11-13 14:21
2003.11.24
Свойство Anchorn не вижу.


1-78906
Relaxxx
2003-11-12 17:09
2003.11.24
StringGrid, не люблю его страшно..........


1-78956
boby_g
2003-11-11 21:58
2003.11.24
Функция Pos с параметром BegPos???


7-79194
ZHK
2003-09-15 09:51
2003.11.24
Запуск сервиса из памяти