|
|
|
|
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; |
Возникает при переходе фокуса ввода от одной формы к другой |
|
|
|
|