Скачать: CL | DM;

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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: -0.973 c