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

OnActive в MDIChild   Найти похожие ветки 

← →
AndDem   (2003-10-29 12:29) [0]

Добрый день!
Есть MDI-приложение, в котором несколько Child"ов, отличающихся Caption"ами. В зависимости от Caption"а текущего активного Child"а состояние, напр., элементов меню, должно быть различным (enable/disable).
ВОПРОС: как организовать вызов соответсвующей процедуры обработки состояний элементов меню?
Примечание: OnActive не подходит (может неправильно использую?), поскольку он вызывается также при TMDIChild.Create(Application), когда еще я не присвоил нужный Caption.

Заранее благодарен за ответы!

---

← →
DmitryNet   (2003-10-29 14:22) [1]

Привет, Андрей!

Вот решение:

procedure TMainForm.FormCreate(Sender: TObject);
...
Screen.OnActiveFormChange:=ExpChange;
...
end;


где ExpChange:

privatе
...
procedure ExpChange(Sender: TObject);
...
end;

procedure TMainForm.ExpChange(Sender: TObject);
begin
if Screen.ActiveForm=nil then Exit;

miExit.Enabled := (Screen.ActiveForm.ClassType=TMyChildForm) and (Screen.ActiveForm.Caption = "Если видите заголовок этого окна, то кнопка выхода из приложения недоступна.");
end;


---

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

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



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