Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];

Вниз

Убрать 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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.01 c
3-78801
Yurij
2003-10-29 10:59
2003.11.24
Как импортировать данные с INI файла в базу Paradox


7-79193
Sever
2003-09-13 21:19
2003.11.24
Поиск по всему PC


3-78848
MORA
2003-11-03 00:46
2003.11.24
Как написать UDF - нужен пример!


1-78947
Анна
2003-11-12 09:51
2003.11.24
Переместить папку


8-79066
my4ga
2003-07-29 10:59
2003.11.24
Озвучить текст





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский