скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook