procedure TMainForm.FormCreate(Sender: TObject);
begin{ здесь разместите код FormCreate }
Screen.OnActiveFormChange := UpdateObjectss;
{ и здесь тоже, если нужно... }end;
procedure TMainForm.UpdateObjects(Sender: TObject);
begin
<имяобъекта>.Enabled := MDIChildCount > 0;
end;
(MDIChildCount > 0) возвращает true, если открыто _любое_ дочернее окно, и
false в противном случае. Так, вы не должны беспокоиться о количестве открытых
дочерних окон.
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Перехват событий дочерних MDI-форм", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!