Главная Всё о Delphi Регистрация

Вход

Приветствую Вас Гость | RSSСреда, 23.05.2018, 06:26
Меню сайта

Категории каталога
Начинающим [44]
Материалы для начинающих
Трюки [2]
Трюки
Разное [94]
Материалы на разные темы

Наш опрос
Какой версией Delphi вы пользуетесь?
Всего ответов: 118

Каталог статей
Главная » Статьи » Начинающим

Урок 38. Характеристики экрана

Получение характеристик экрана. В каждом приложении присутствует объект 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 доступны только для чтения. Кроме того, они не доступны на этапе разработки программы - вы можете их использовать только на этапе выполнения.

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

Категория: Начинающим | Добавил: Дубин (04.09.2007) | Автор: Дубин Михаил Олегович
Просмотров: 519 | Рейтинг: 0.0/0 |

Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Форма входа

Поиск

Друзья сайта

Статистика

Рейтинг@Mail.ru

Реклама

Copyright MyCorp © 2018Сайт управляется системой uCoz