BorlanD Russian Сommunity

Получение характеристик экрана. В каждом приложении присутствует объект Screen типа TScreen. Его не надо специально объявлять - он и так доступен.

 

Вот так, например, с помощью объекта Screen можно выяснить текущие размеры экрана:

 

var

            Width, Height: Integer;

            ...

begin

            Width:=Screen.Width;

            Height:=Screen.Height;

            ShowMessage('Ширина экрана: ' + IntToStr(Width) +

            ', Высота экрана: ' + IntToStr(Height));

 

Это можно использовать, например, для расположения формы точно по центру экрана.

 

Хотя это можно сделать и более простым способом:

 

procedure TForm1.FormCreate(Sender: TObject);

begin

            Form1.Left:=(Screen.Width - Form1.Width) div 2;

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

end;

 

Все свойства объекта Screen доступны только для чтения. Кроме того, они не доступны на этапе разработки программы - вы можете их использовать только на этапе выполнения.

            Всё на этом урок закончен.

Просмотров: 621 | Категория: Delphi 7 | Дата: 11.05.2008