Форма входа

Категории раздела

Мои файлы [12]
Полезности [15]

Поиск

Наш опрос

Оцените мой сайт
Всего ответов: 62

Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0




Понедельник, 25.11.2024, 07:56
Приветствую Вас Гость | RSS

Delphiport.ucoz.com

Главная | Регистрация | Вход
Полезные советы


Главная » Файлы » Полезности

Узнаем разрешение экрана монитора
13.11.2011, 16:35

    Хотите узнать разрешение экрана? Нет ничего проще:

  1) Кидаем на форму один компонент Button, и один Edit;

  2) Очищаем свойство Caption у Edit1, создаем обработчик событий OnClick на Button и записываем следующий код:

begin

label1.Caption:=(Format('Ширина - %d, Высота - %d', [Screen.Width, Screen.Height]));

end;

  3) Запускаем проект, нажимаем на кнопку и в нашем Label наблюдаем приятный результат.

Категория: Полезности | Добавил: Sashok
Просмотров: 625 | Загрузок: 0 | Комментарии: 1 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Copyright MyCorp © 2024