Форум: "Основная";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2006.09.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.047 c