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

Свойство 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;