Перехват событий дочерних MDI-форм

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

Статья Перехват событий дочерних MDI-форм раздела Программа и Интерфейс MDI приложения может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: 2015-12-15 18:28:27 :: re:Перехват событий дочерних MDI-форм

пользователь: Un.

Очень благодарен!

:: Главная :: MDI приложения ::