1.1. Вид¶

GetFormType(): TFormCreationFlags¶

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

Return type:	TFormCreationFlags

GetFrameCaption(): String¶

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

Return type:	String

See also

Заголовок фрейма.

CloseActiveForm(ModalResult: TModalResult)¶

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

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

EnableGUI()¶: Метод снимает блокировку интерфейса, заблокированного ранее методом DisableGUI.

DisableGUI()¶

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

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

Пример использования¶

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

Attention

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

Note

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

IsCurentFormModal(): Boolean¶

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

Return type:	Boolean

Пример использования¶

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