Получаем размеры экрана монитора в Delphi
1) Кидаем на форму один компонент Button, и один Label;
2) Очищаем свойство Caption у Label1, создаем обработчик событий OnClick на Button и записываем следующий код:
|
1 2 3 |
begin label1.Caption:=(Format('Ширина - %d, Высота - %d', [Screen.Width, Screen.Height])); end; |
3) Запускаем проект, нажимаем на кнопку и в нашем Label наблюдаем результат.