Delphi 5. Учебник



         

Cursor



Это свойство определяет форму указателя мыши для всего приложения. Обычно оно используется для отображения песочных часов, чтобы в то время, пока пользователь думает о сложной работе, выполняемой приложением, немного передохнуть.

    {Придать курсору форму песочных часов.}
     Screen.Cursor:= crHourglass;
     try
            {Попытаемся ничего не делать какое-то время.}
            for iCount:=1 to 1000000000 do;
     finally
            {Восстановим форму указателя.}
            Screen.Cursor:= crDefault;
     end;

    Форму указателя можно изменить для каждого потомка TControl (включая ТForm) отдельно.




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