| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ActionManager + ActionMainMenuBar в run-time [D7, Win2k, WinXP]

superedward ©   (2004-07-28 07:10:00) 

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

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

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

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

---

@Lex   (2004-07-28 10:46:00) [1]

//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;

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

---

superedward   (2004-07-28 09:51:00) [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

---

Sun bittern   (2004-07-28 07:30:00) [3]

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

---

Наверх