VPF::Форму - в центр - Форум программистов

FireSnake

Дата 17.11.2006, 19:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: 1
Всего: 1

Здраствуйте. Как добиться что бы форма всегда была строго по центру экрана, не зависимо от текущего разрешения монитора? Другими словами к каму свойсту и чего надо обратится, что бы узнать размер экрана в пикселях по ширине и по высоте?

Sunvas

Дата 17.11.2006, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

Профиль
Группа: Участник
Сообщений: 3388
Регистрация: 12.3.2006
Где: Тосно

Репутация: 28
Всего: 89

Свойство формы Position поставь в poScreenCenter.

Это сообщение отредактировал(а) Sunvas - 17.11.2006, 19:52

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

FireSnake

Дата 17.11.2006, 19:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 201
Регистрация: 15.9.2006
Где: Украина, Донецк

Репутация: 1
Всего: 1

А блин, забыл в поиск глянуть... там уже все есть smile

kostas

Дата 18.11.2006, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.7.2006

Репутация: 3
Всего: 4

Добавлю кое что.
Если имеем MDI (а может и не только) приложении и в OnCreate разворачиваем его на весь экран (WindowState:=wsMaximized), и при этом у нас выставлено Position по центру, то окошко будет растянутым на весь экран и выровненным по центру (причем не важно ScreenCenter или DesktopCenter), но таким образом, что наверху останется область, то есть top его не будет равен нулю. Объясняется просто, разворачивается окно на всю рабочую область, а центруется по всему экрану, отсюда и будет наверху полосочка оставатся размером высота_пуска/2 в общем случае smile

Такой вот косяк, можете проверить у себя...
Решается легко, центруем ручками smile

Код


  Left := (Screen.Width - Form1.Width) div 2;
  Top := (Screen.Height - Form1.Height) div 2;

fidres

Дата 19.11.2006, 09:11 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 159
Регистрация: 15.11.2006

Репутация: нет
Всего: 1

сам баловался с этой фигнёй... ;о)
в программулине одной, решил обойтись без дельфовой функции... =)

Код

procedure TForm1.Button1Click(Sender: TObject);
var b,u,g,k: integer;
begin
   g:=Screen.Width div 2;        // половина ширины экрана
   k:=Screen.Height div 2;       // половина его высоты
   b:=form2.Height div 2;        // высота формы, делённая на два
   u:=form2.Width div 2;         // ширина - ll -
{
  showmessage(
   'FORM2.width = '+inttostr(form2.width)+#13+
   'FORM2.height = '+inttostr(form2.Height)+#13+
   'FORM2.width div 2 = '+inttostr(form2.width div 2)+#13+
   'FORM2.height div 2 = '+inttostr(form2.Height div 2));
}
   form2.Left:=g-u;               // выставляем координаты левого края формы
   form2.Top:=k-b;                //  - ll - верхнего края ......
   form2.Show;
end;

можно обойтись без всяких переменных... ;)
эт я так - для наглядности... smile

Код

   form.Left:=(Screen.Width div 2)-(form.Width div 2);
   form.Top:=(Screen.Height div 2)-(form.Height div 2);
   form.Show;

ослик парализованный!
так поторопился ответить, что даже не прочёл пост by kostas...
smile

ну да ладно. пусть будет.
простите за smile

Это сообщение отредактировал(а) fidres - 19.11.2006, 09:15

--------------------

Исправьте ошибку в слове <ХЕРОШО> и я скажу Вам оптимист Вы или пессимист.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »