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