ActionList-ы на соседных фреймах.
lesstab © (2011-07-16 11:00:00)
На форме два фрейма. На каждом фрейме свой ActionList.
Action-ы связаны на клавиши (ShortCut).
Во время выполнения нажимаю на клавиш, должно срабатывать акт
текущего фрейма, но срабатывает акт соседного фрейма (того, что
вставлен на форму первым). ((
Думал, что фреймы смогут распозновать свои ActionList-ы.
Ведь, некрасиво, когда все время родительская форма подсказывает
который акт должен выполняться.
Как организовать все, чтобы описания актов оставались на
модулях своего фрейма?
lesstab (2011-07-16 11:32:00) [1]
Решил так.
В собственных модулях каждого фрейма "объяснил":
procedure TfrmCurriculum.FrameEnter(Sender: TObject);
begin
ActionList1.State := asSuspendedEnabled;
ActionList1.State := asNormal;
end;
procedure TfrmCurriculum.FrameExit(Sender: TObject);
begin
ActionList1.State := asSuspended;
end;
Работает. ))
Наверх 
ЧАТ |
Орешник |
|
