TFrame TAction и ShorCut [D7, WinXP]
ancot © (2006-08-04 20:28:00)
Доброго всем вечера.
Есть форма, три фрэйма и два 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:00) [1]
Правда нет вариантов?
Наверх 
ЧАТ |
Орешник |
|
