Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.10.2022, 22:34   #1
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 478
По умолчанию Разместить форму в центре экрана

Вопрос такой: как сделать так, чтобы независимо от размеров экрана, открытая только что форма размещалась в центре?

Для чего это надо: сейчас для одной задачи используется CreateMessageDialog. Но потом следует огромный кусок кода для того, чтобы сменить Caption на всех кнопках. Чтобы программа не делала кучу лишних действий, решил, что лучше просто прописать свою форму, которая сразу создает кнопки с нужными именами
Kronos913 вне форума Ответить с цитированием
Старый 01.10.2022, 22:40   #2
Kronos913
Форумчанин
 
Регистрация: 10.02.2021
Сообщений: 478
По умолчанию

И попутно второй вопрос сразу: как сделать так, чтобы пользователь не мог менять размеры этой формы?
Kronos913 вне форума Ответить с цитированием
Старый 01.10.2022, 22:42   #3
Shouldercannon
Участник клуба Подтвердите свой е-майл
 
Аватар для Shouldercannon
 
Регистрация: 26.01.2008
Сообщений: 1,881
По умолчанию

poDesktopCenter - форма по центру с учетом высоты панели
poScreenCenter - без учета, физически по центру монитора
или
Код:
Form1.Left:= (Screen.WorkAreaWidth - Form1.Width) div 2;
Form1.Top:= (Screen.WorkAreaHeight - Form1.Height) div 2;
Shouldercannon вне форума Ответить с цитированием
Старый 01.10.2022, 22:51   #4
macomics
Участник клуба
 
Регистрация: 17.04.2022
Сообщений: 1,214
По умолчанию

Код:
Form1.BorderStyle := bsSingle;
Форма с фиксированным размером окна.
Но если не отключите кнопку Развернуть в заголовке, тогда размер все же еще возможно будет изменять (разворачивать на весь экран и обратно к заданному размеру).

Последний раз редактировалось macomics; 01.10.2022 в 22:57.
macomics вне форума Ответить с цитированием