[Yurk@]

Как подогнать размер формы под разрешение экрана

[AlexSku]

WindowState = wsMaximized
Это нужно?

[Yurk@]

Попробую!
Думаю пройдёт!
Спасибо!

[Yurk@]

Не-а! Не то!
Меня интересует автоматический подбор размера под мониторы с разным разрешением!
Я работаю на 1024*768, а когда пробую на 800*600 то окно проги выходит за пределы экрана.
В то же время на 2048*768 на мониторе остаётся пустое место!

[zip000]

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Top := 0;
  Left := 0;
  Width := Screen.Width;
  Height := SCreen.Height;
end;

[Yurk@]

Все равно не проходит!
Заголовок остаётся в пределах экрана, а тело самой формы выходит за пределы

[The Shadow]

Такого не должно быть.
У меня все сработало.

[X-rem]

Чел , может у тебя просто монитор не правельно настроен ???

[4kusNick]

Попробуйте поиграться с ClientHeight, ClientWidth у формы и с ее высотой\шириной.

Не зависимо от настроек дисплэя можно все нормально настроить.
X-rem, экспериментируй, смотри в отладчике встроенном значения высоты\ширины и примерно там поймешь сколько нужно отнять от высоты, возможно нужно отнять высоту заголовка, который считается как Form.Height-Form.ClientHeight, ну и т.д. и все у тебя получится, пробуй сам, не жди готовых ответов...

[Yurk@]

Всё. Уже решил.
Я использовал:
SystemScrY := GetSystemMetrics(SM_CYSCREEN);
SystemScrX := GetSystemMetrics(SM_CXSCREEN);
SystemBorder := GetSystemMetrics(SM_CYFRAME);

Теперь всё нормально работает

[Elv]

Сообщение от Yurk@

Как подогнать размер формы под разрешение экрана

Align = alClient

[Winny]

Сообщение от Elv

Align = alClient

Плюс вот это (желательно)

Код:

BorderStyle:=bsSingle