Вид
----------------------------------------------------------------------

.. pas:function:: GetFormType(): TFormCreationFlags

  Возвращает тип окна: **fcfModal** или **fcfMDI**.

  :rtype: TFormCreationFlags


.. pas:function:: GetFrameCaption(): String

  Метод возвращает полный заголовок активной формы(фрейма) - основной заголовок вместе с расширением.
  
  :rtype: String

  .. seealso::
    :ref:`frame_caption`.

.. pas:function:: CloseActiveForm(ModalResult: TModalResult)

  Метод закрывает активную форму. *ModalResult* имеет смысл, если форма
  открыта модально. Это значение будет возвращено функцией ``CreateForm``.

  :param TModalResult ModalResult:
    Результат, возвращаемый модальным окном при закрытии.


.. pas:function:: EnableGUI()

  Метод снимает блокировку интерфейса, заблокированного ранее методом
  ``DisableGUI``.

  .. warning:: |not_implemented|


.. pas:function:: DisableGUI()

  Метод блокирует интерфейс приложения и не позволяет пользователю
  выполнять какие-либо действия (нажимать кнопки, переходить с записи на
  запись).

  При этом в Global 1.5.x интерфейс приложения затеняется. Затенение
  работает только на операционных системах Windows 8 и выше. На предыдущих
  версиях Windows интерфейс не изменяется.

  .. code-block:: delphi
    :caption: Пример использования

    <Pascal>
      DisableGUI;
      Try
        {какие-либо действия}
      Finally
        EnableGUI
      End;
    </Pascal>

  .. attention::

    Обязательно используйте блок ``try ... finally ... end``!
    В противном случае, если
    после вызова ``DisableGUI`` произойдёт ошибка, ``EnableGUI`` может не вызваться,
    и интерфейс приложения останется заблокированным.

  .. note::

    Пары вызовов ``DisableGUI`` и ``EnableGUI`` могут быть вложенными, при этом
    блокировка снимется только после последнего вызова ``EnableGUI``.

  .. warning:: |not_implemented|


.. pas:function:: IsCurentFormModal(): Boolean

  Функция проверяет тип открытия текущей формы. Если форма открыта модально
  – вернёт **True**. Если текущая форма открыта MDI-но – вернёт **False**.

  :rtype: Boolean

  .. code-block:: delphi
    :caption: Пример использования

    <pascal>
      If IsCurentFormModal then
      Begin
        {какие-либо действия}
      End;
    </pascal>