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

Вниз

ActionManager + ActionMainMenuBar в run-time   Найти похожие ветки 

 
superedward ©   (2004-07-28 07:10) [0]

Создаю ActionManager + ActionMainMenuBar в run-time. Проблема: этот ActionMainMenuBar не раскрывает автоматически пункты меню.

Т.е. есть меню на форме:
Файл         Правка
 Новый...     Вырезать
 Открыть      Копировать
 Сохранить    
                         
Кликнул на "Файл", развернулось меню, перевёл мышу на "Правка" -у нормального меню развернулось "Правкино" меню, без дополнительного клика мышой.
А уменя надо и на "Правке" кликать еще раз...

В созданном в designe-time ActionMainMenuBar"е все нормально.

Поможите, кто работал с этой связкой...


 
Sun bittern ©   (2004-07-28 07:30) [1]

Лучше код приведи, а там глянем


 
superedward ©   (2004-07-28 09:51) [2]

Создаём TActionManager & ActionMainMenuBar:
ActionManager:=TActionManager.Create(Form1);
ActionMainMenuBar:=TActionMainMenuBar.Create(Form1);
ActionMainMenuBar.Parent:=Form1;
ActionMainMenuBar.Align:=alTop;
ActionMainMenuBar.ActionManager:=ActionManager;
ActionMainMenuBar.ShowHint:=true;

ActionBarItem:=ActionManager.ActionBars.Add;
ActionBarItem.ActionBar:=ActionMainMenuBar;
with ActionBarItem do begin
 ActionClientItem:=Items.Add;
 ActionClientItem.Caption:="&Клиент";

 SubActionClientItem:=ActionClientItem.Items.Add;
 SubActionClientItem.Action:=Action1;

 SubActionClientItem:=ActionClientItem.Items.Add;
 SubActionClientItem.Caption:="-";

 SubActionClientItem:=ActionClientItem.Items.Add;
 SubActionClientItem.Action:=Action2;
 SubActionClientItem:=ActionClientItem.Items.Add;
 SubActionClientItem.Action:=Action3;
end


 
@Lex ©   (2004-07-28 10:46) [3]

//with ActionBarItem do begin
// ActionClientItem:=Items.Add;
// ActionClientItem.Caption:="&Клиент";

ActionClientItem := ActionManager.AddCategory("&Клиент",                                       ActionBarItem.Items.Add);
with ActionClientItem do begin
 SubActionClientItem:=Items.Add;
 SubActionClientItem.Action:=Action1;

 SubActionClientItem:=Items.Add;
 SubActionClientItem.Caption:="-";

 SubActionClientItem:=Items.Add;
 SubActionClientItem.Action:=Action2;
 SubActionClientItem:=Items.Add;
 SubActionClientItem.Action:=Action3;
end;

Попробуй таким макаром.



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

Форум: "Основная";
Текущий архив: 2004.08.08;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.032 c
14-1090237879
sucer
2004-07-19 15:51
2004.08.08
Подержка длинных имен под DOS


14-1090575348
chirchik
2004-07-23 13:35
2004.08.08
Что лучше ADOTable или ADOQuery?


14-1090675139
VID
2004-07-24 17:18
2004.08.08
Зацените, плиз...


1-1090575798
Павел_
2004-07-23 13:43
2004.08.08
Чем отличается (Sender as TLabel) и TLabel(Sender)?


1-1090930435
GrayFace
2004-07-27 16:13
2004.08.08
Чем отличаются GetMem и AllocMem?





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский