TFrame TAction и ShorCut

← →
ancot (2006-08-04 20:28) [0]

Доброго всем вечера.
Есть форма, три фрэйма и два ActionList, попробую изобразить кто кому родственник
Form1_Frame1_ActionList1
_Frame2_Frame3_ActionList2
Проблема в том что у ActionList2 не отрабатывает ShorCut.
Покопавшись в исходниках VCL разобрал что private метод TFrame - AddActionList не добавляет ActionList к списку FActionLists класса TCustomForm т.к. родитель Frame3 не TCustomForm. Выход я нашел определив класс для доступа списку FActionLists TCustomForm:

TMyForm = class(TCustomForm) end;

Использование для ActionList2 что то вроде

var l: TList; begin TMyForm(Parent.Parent).FActionLists.Add(Self); end;

Это работает, но может есть менее извращенные способы.
Желательно с использованием компонентов и наследования.

← →
ancot (2006-08-04 21:56) [1]

Правда нет вариантов?

TFrame TAction и ShorCut Найти похожие ветки