Индикация длительных процессов

Номер статьи: KB000001

Общие сведения

Связанные блоки:

• среда разработки

• Fore

Описание

Для индикации длительных процессов при разработке собственных форм в Fore существует два метода:

• Использовать статическое свойство WaitCursor класса Ui.WinApplication. При установке его в True отображается курсор «песочные часы» (), при установке его в False возвращается прежний курсор.

Пример кода:

Sub OperationX;
Begin
    WinApplication.WaitCursor := True;
    Try
        // Длительная операция
    Finally
        WinApplication.WaitCursor := False;
    End Try;
End Sub OperationX;

• Использовать методы BeginOperation и EndOperation у объекта формы. При вызове метода BeginOperation отображается стандартный анимированный индикатор процесса в нижней части формы с заданным разработчиком текстом, например:
  

После завершения операции необходимо вызвать метод EndOperation, который вернет форму в прежнее состояние.

Пример кода:

Sub OperationY;
Begin
    BeginOperation(NotificationEdit.Text);
    Try
        // Длительная операция
    Finally
        EndOperation;
    End Try;
End Sub OperationY;

Данные методы необходимо использовать в операторе Try … Except … Finally … End Try для корректного завершения длительного процесса в случае возникновения исключительной ситуации.