возвращает true, если открыто _любое_

Delphi 1

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


Содержание  Назад  

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---