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

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

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

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