Ribbon главное меню

[drak2000]

Привет форумчанам. Помогите с Ribbon очень нужно! Оформил в виде главного меню. Каждая менюшка главного меню имеет (SubMenu) обозначим, как уровень 1. А эти (SubMenu) еще по (SubMenu)- уровень 2. Один из пунктов (SubMenu) уровня 2 имеет (SubMenu) будем считать его как уровень 3, который имеет несколько пунктов. Прошлый пост, где я спрашивал про теги, решил по другому. Чтобы узнать Caption нажатого Items-a, делаю так:

procedure TFrmMain.LicExecute(Sender: TObject);
var a1:string;
begin
a1:=GetText(Sender as TAction);
...
end;

function GetText(clAction:TAction):string;
begin
with TCustomActionManager(ActionManager1 ) do
Result:=TActionClientItem(FindItemB yAction(clAction)).Caption;
end;

У меня вопрос, как узнать Caption SubMenu, в котором я "выбрал" (кликнул) на Items.

[drak2000]

Никаких предложений? Может я немного непонятно объяснился. Например есть ActionClientItem с названием (Меню), в него вложено 3 пункта (Меню1, Меню2, Меню3). При клике на Меню3, узнаем наш Caption
procedure TFrmMain.LicExecute(Sender: TObject);
var a1:string;
begin
a1:=GetText(Sender as TAction);
...
end;
function GetText(clAction:TAction):string;
begin
with TCustomActionManager(ActionManager1 ) do
Result:=TActionClientItem(FindItemB yAction(clAction)).Caption;
end;
Помогите узнать Caption(Меню), в которое вложены (Меню1, Меню2, Меню3). Очень нужно.