Объект Screen

Delphi автоматически создает глобальный объект, представляющий экранную среду (объект Screen типа ТScreen) для каждого приложения, поэтому обычно такие объекты программно не создаются. Использование объекта обеспечивает возможность работы с различной экранной информацией, такой как вид указателя мыши или размеры экрана. Экранный объект, как и объект Application, недоступен при проектировании приложения, все его свойства и методы работают только во время выполнения программы.

Для определения размеров экрана можно использовать свойства Height и Width типа Integer, возвращающие, соответственно, высоту и ширину экранной области в пикселях. Эти свойства применяются, например, для определения установленного разрешения монитора или если необходимо масштабировать форму и ее компоненты.

Размещение формы в центре экрана:

procedure TEorml. FormCreate (Sender: TObject);

begin

Fofml.Left := (Screen.width - Forml,wjdth) div 2;

Form1.Top : (Screen.Height - FornilJleight) div 2;

end;

В Delphi у объекта экрана имеются новые свойства, Позволяющие определять размеры рабочего стола WorkAreaRect, WorkAreaLeft, WorkAreaHeight и WorkAreaWidth.

Задание вида курсора

Свойство Cursors типа TCursor определяет вид указателя мыши для всего приложения. Различные варианты вида указателя мыши приведены при рассмотрении свойств визуальных компонентов. По умолчанию свойство Cursor имеет значение сrDefault, и вид указателя мыши изменяется в зависимости от значений одноименного свойства отдельных компонентов. Если для объекта Screen свойство Cursors установить в отличное от сrDefault значение, то указатель примет заданный вид при нахождении во всей клиентской области приложения. Screen.Cursor := crUpArrow;

Свойство FormCount типа Integer содержит число форм приложения. В это число входят все созданные формы приложения, независимо от их видимости на экране в текущий момент времени.

Например, в процедуре

Procedure TForml .ButtonlCiick(Sender: TObject);

Begin

Label1.Caption:=IntToStr(Screen.FormCount);

End;

При нажатии кнопки отображается количество созданных форм приложения.

Свойство Forms [Index:integer] типа TForm возвращает список форм приложения. Это свойство представляет собой массив форм, к которым можно обращаться по индексам. При этом первая создаваемая форма доступна через Forms[0], вторая — через Forms[1] и т.д.

Приводимая ниже процедура осуществляет смену заголовка первой формы экрана:

procedure TForml . Button2CliCk (Sender: TObject);

begin

Screen.Forms[0].Caption :=’Первая форма ’

end;

для определения активной формы в приложении можно использовать свойство ActiveForm типа TForm. Свойство доступно только для чтения и указывает форму, имеющую фокус ввода. Например:

// Процедура является обработчиком события OnIdle приложения

procedure TForm1.IdleWork(Seflder TObject; var Done: Boolean);

begin

Labei2 .Caption :=Screen.ActiveForm,Name,

end;

Вывод списка шрифтов

Для работы со списком шрифтов, установленных в системе и доступных приложению, можно использовать свойство Fonts типа TString. Оно доступно только для чтения, с его помощью можно, например, выбрать шрифт. Так, в процедуре при создании формы приложения в список загружается перечень экранных шрифтов.

Свойство DefaultKbLayout типа HKL позволяет получить раскладку клавиатуры по умолчанию установленную в Windows. Значение этого свойства может понадобиться, например, при восстановлении раскладки по умолчанию функции ActivateKeyboardLayout.

13