Гостевая книга Ассемблер Delphi

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;

Возникает при переходе фокуса ввода от одной формы к другой

назад - Вперёд