• Registered: 2015-12-06
  • Posts: 1

Topic: Взять размеры экрана

Как присвоить форме размеры пользовательского экрана?
так  не работает :
form1.Height := screen.Height;
form1.Width  := screen.Width;

Antoha.SHCHerbakov's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Взять размеры экрана

Я пологаю вам необходимо развернуть форму на весь экран?
Тогда установите свойство формы Sizeable = True
и свойство WindowState = wsMaximized


после чего данная форма по умолчанию будет развернута на весь экран пользователя.


Пожалуйста перед этим скачайте последнюю бета версию 2.3, т.к. пришлось исправить одну ошибку связанную с этим
http://myvisualdatabase.com/forum/viewtopic.php?id=1935

Dmitry.
  • Registered: 2015-10-24
  • Posts: 4

Re: Взять размеры экрана

скачал, обновил - все формы кроме form1 разворачиваются ) Нельзя ли под исправить?

okna29's Website

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Взять размеры экрана

перепроверил, главная форма также разворачивается.
Пожалуйста отправьте ваш проект на support@drive-software.com


посмотрю в чем дело.

Dmitry.
  • Registered: 2018-07-13
  • Posts: 106

Re: Взять размеры экрана

okna29 wrote:

скачал, обновил - все формы кроме form1 разворачиваются ) Нельзя ли под исправить?

Добрый день! Разобрались почему главная форма не открывается на весь экран? Подскажите в чем проблема?

  • From: Нефтеюганск
  • Registered: 2022-06-03
  • Posts: 461

Re: Взять размеры экрана

Vickus wrote:
okna29 wrote:

скачал, обновил - все формы кроме form1 разворачиваются ) Нельзя ли под исправить?

Добрый день! Разобрались почему главная форма не открывается на весь экран? Подскажите в чем проблема?

 
screen.Height  и   screen.Width  работают

form1.Height := screen.Height;
form1.Width  := screen.Width;
form1.Top := 0;
form1.Left := 0;

 
если Вам нужно программно развернуть окно на весь экран то это делается так

form1.WindowState := wsMaximized;