Сколько открыто дочерних окон?

Written on . Posted in [Delphi] Пользовательский интерфейс. Окна и формы

Пример (из электронной справки):

with Form1 do
for I := 0 to MDIChildCount-1 do
MDIChildren[I].Close;

так:

if (MDIChildCount=0) then ShowTheStatusPanel
else HideTheStatusPanel;

 

Создайте в главной форме процедуру с именем OnChildCountChange приблизительно такого вида:

if MDIChildCount = 0 then

Panel1.Show else Panel1.Hide;

и вызывайте ее в обработчиках событий ваших дочерних форм Destroy и Create:

MainForm.OnChildCountChange;

для обновления состояния компонента StatusBar.

avr форум