VPF::Как узнать название "меню" - Форум программистов

drak2000

Дата 20.6.2011, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.6.2011

Репутация: нет
Всего: нет

Привет всем. Вот уже 2 день бьюсь над решением такого вопроса. Есть у меня ActionManager в нем я создал єкшены. Меню программы оформил в виде Office2007. Испоьзую RibbonControl для этого. Суть проблемы вот в чем... Например, менюшка имеет подменю, у каждого подменю назначен экшен. При клике на одном из подменю у меня берется Caption(т.е. название и передается в отчет). Делаю так:

Код


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

function GetRText(clAction:TAction):string;
begin
with TCustomActionManager(ActionManager1) do
Result:=TActionClientItem(FindItemByAction(clAction)).Caption;
end;

А как узнать Caption менюшки, в котором я выбрал (кликнул) подменю. Чтобы тоже передать название в отчет. Помогите с кодом(выявления caption менюшки), плз... smile

M
Rrader

Пользуйтесь подсветкой кода

Это сообщение отредактировал(а) Rrader - 23.6.2011, 05:19

Rrader

Дата 23.6.2011, 05:41 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


procedure TFrmMain.LicExecute(Sender: TObject);
var
  ActClientItem: TActionClientItem;
begin
  with ActionManager1 do
  begin
    // Подменю
    ActClientItem := FindItemByAction(Sender as TAction);
    ShowMessage(ActClientItem.Caption);
    // Меню
    ActClientItem := TActionClientItem(ActClientItem.ParentItem);
    ShowMessage(ActClientItem.Caption);
  end;
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »