20.2. SCREEN

Объект screen класса TScrеen инкапсулирует свойства и методы, упрощающие работу с дисплеем ПК, в том числе с его помощью оперативно изменяется вид используемого программой указателя мыши. Как правило, программа устанавливает указатель в виде песочных часов перед началом длинной по времени работы и восстанавливает умалчиваемую форму после ее завершения. Для этого используется свойство Cursor объекта Screen:

Screen.Cursor := crHourGlass;

// Выполняем длительную работу:

….

// Восстанавливаем умалчиваемую срорму:

Screen.Cursor :== crDefault;

Свойства объекта Screen:

property ActiveControl: TWinCon- trol; | Содержит ссылку на элемент с фокусом ввода
property ActiveForm: TForm; | Содержит ссылку на окно с фокусом ввода
property Cursor: TCursor; | Определяет текущий указатель мыши для окон программы
property Cursors[Index: Integer]: HCursor; | Открывает доступ к одному из зарегистрированных указателей мыши по его индексу
property CustomFormCount: Integer; | Содержит количество окон или страниц свойств программы, открытых в данный момент
property CustomForms[Index: Integer] : TCustomForm; | Содержит список объектов класса TCustom Form - открытых в данный момент окон программы
property DataModuleCount: Inte ger; | Содержит количество модулей данных в программе
property DataModules[Index: Integer] : TDataModule; | Содержит список модулей данных - объектов класса TdataModule
property Fonts: TStrings; | Содержит список имен всех экранных шрифтов
property FormCount: Integer; | Содержит общее количество показываемых на экране окон программы
property Forms[Index: Integer]: TForm; | Открывает доступ к окну программы по его индексу
property Height; Integer; | Содержит высоту экрана в пикселях
property IconFont: TFont; | Определяет шрифт для надписи ниже пиктограммы минимизированной программы
property PixelsPerInch: Integer; | Содержит разрешающую способность экрана в пикселях на линейный дюйм
property Width: Integer; С объектом screen связаны два | Содержит ширину экрана в пикселях события:
property OnActiveControlChange: TNotifyEvent; | Возникает при переходе фокуса ввода от одного элемента к другому
property OnActiveFormChange: TNotifyEvent; | Возникает при переходе фокуса ввода от одной формы к другой