Советы по 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. [001762]



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