Объект Screen

Этот объект представляет свойства дисплея. Курсор приложения, общий для всех форм, доступен через свойство:

• Property Cursir:TCursor;

которое уже было описано в 21–м разделе. Например, включить «песочные часы» на время выполнения длительной операции можно следующим образом:

Try

Screen.Cursor:=crHourGlass;

{ выполнение операции }

Finally

ScreenCursor:=crDefault;

End;

Имена всех зарегистрированных в системе шрифтов помещаются в список, определенный в свойстве:

• Property Fonts:TString;

Размеры экрана в пикселях можно получить из свойств:

• Property Height:Integer;

• Property Width:Integer;

Эти свойства довольно часто используются для настройки размеров форм и других компонент на текущее разрешение экрана дисплея.

Следующие два свойства указывают на активную в данный момент форму и ее активный элемент управления:

• Property ActiveForm:TForm;

• Property ActiveControl:TWinControl;