Перехват событий дочерних MDI-форм
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 в противном случае. Так, вы не должны беспокоиться о количестве открытых дочерних окон.