VPF::как поместить форму посередине экрана

Vetos

Дата 7.11.2007, 19:33 (ссылка)

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

Загрузка ...

Опытный

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

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

Извините, здравствуйте, помогите, знаю што вопрос тупой, но как сделать, чтобы после запуска программы форма располагалась по середине экрана, независимо от того как я ее расположил в
Design-Time.Еще раз извиняюсь за тупой вопрос)

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

Rennigth

Дата 7.11.2007, 19:36 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Vetos @ 7.11.2007, 19:33

)

Код


 Form.Position := poDesktopCenter;

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

(* Honesta mors turpi vita potior *)

Sanchezzz

Дата 7.11.2007, 19:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

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

свойство у формы position :=poDesktopCenter

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

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

Vetos

Дата 7.11.2007, 20:02 (ссылка)

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

Загрузка ...

Опытный

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

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

Спасибо большое добрые люди smile

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

Строить нужно так, чтоб никто не сломал!
А ломать, чтоб никто не знал 8) :ne_huliganit

pseud

Дата 8.11.2007, 18:15 (ссылка)

(голосов:1)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

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

Rennigth, Sanchezzz, Vetos,

с небольшим опозданием, но выступлю:

poDesktopCenter кладет форму по середине рабочего стола, а если к компу подключено 2 монитора и рабочий стол на них растянут, то форма ваша будет лежать на-половину там, на-половину там, но зато по центру стола smile

поэтому я бы порекомендовал использовать poScreenCenter
тогда форма будет по середине экрана, причем наверно по середине того экрана в котором лежала икона или в которм MainForm. Вобщем потестить надо

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Rennigth

Дата 8.11.2007, 18:38 (ссылка)

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

Загрузка ...

Эксперт

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

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

pseud,
Да, ты прав. Вот реализация если poScreenCenter

Код


  if FPosition = poScreenCenter then
    SetBounds(Screen.Monitors[I].Left + ((Screen.Monitors[I].Width - Width) div 2),
    Screen.Monitors[I].Top + ((Screen.Monitors[I].Height - Height) div 2),
    Width, Height)

Вот если poDesktopCenter

Код


  if FPosition = poDesktopCenter then
  begin
//...
     X := (Screen.DesktopWidth - Width) div 2;
     Y := (Screen.DesktopHeight - Height) div 2;
//...
     SetBounds(X, Y, Width, Height);
  end;

Я их постоянно путаю, может сейчас запомню.... smile

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

(* Honesta mors turpi vita potior *)

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