Скачать: CL | DM;

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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c