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

ActionList-ы на соседных фреймах.   Найти похожие ветки 

← →
lesstab ©   (2011-07-16 11:00) [0]

На форме два фрейма. На каждом фрейме свой ActionList.
Action-ы  связаны на клавиши (ShortCut).
Во время выполнения нажимаю на клавиш, должно срабатывать акт текущего фрейма, но срабатывает акт соседного фрейма (того, что вставлен на форму первым). ((

Думал, что фреймы смогут распозновать свои ActionList-ы. Ведь, некрасиво, когда все время родительская форма подсказывает который акт должен выполняться.

Как организовать все, чтобы описания актов оставались на модулях своего фрейма?

---

← →
lesstab ©   (2011-07-16 11:32) [1]

Решил так.
В собственных модулях каждого фрейма "объяснил":


procedure TfrmCurriculum.FrameEnter(Sender: TObject);
begin
    ActionList1.State := asSuspendedEnabled;
    ActionList1.State := asNormal;
end;

procedure TfrmCurriculum.FrameExit(Sender: TObject);
begin
    ActionList1.State := asSuspended;
end;


Работает. ))

---

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

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



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