VPF::Размещение формы на экране - Форум программистов

Михалыч

Дата 4.4.2009, 20:22 (ссылка)

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

Загрузка ...

Опытный

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

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

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

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

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

Данкинг

Дата 4.4.2009, 20:42 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

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

А если свойство Position оставить в poDesigned и разместить форму, где нужно, то не получится?

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

There's nothing left but silent epitaphs.

Михалыч

Дата 4.4.2009, 21:07 (ссылка)

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

Загрузка ...

Опытный

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

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

На других компьютерах разрешение экрана другое,а мне нужно привязать форму так,что бы на любом разрешении форма была рядом с трее

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

За частый поиск был забанен во всех известных поисковых системах.
Обиженных комодераторов: 1

razsagal

Дата 4.4.2009, 22:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


procedure TForm1.FormShow(Sender: TObject);
begin
  Left := Screen.WorkAreaWidth  + Screen.WorkAreaLeft - Width;
  Top  := Screen.WorkAreaHeight + Screen.WorkAreaTop  - Height;
end;

Добавлено через 9 минут и 42 секунды
а можно и такой вариант, "всегда у часов":

Код


procedure TForm1.FormShow(Sender: TObject);
begin
 if Screen.WorkAreaLeft > 0 then
  Left := Screen.WorkAreaLeft
 else
  Left := Screen.WorkAreaWidth  + Screen.WorkAreaLeft - Width;

 if Screen.WorkAreaTop > 0 then
  Top  := Screen.WorkAreaTop
 else
  Top  := Screen.WorkAreaHeight + Screen.WorkAreaTop  - Height;
end;

Это сообщение отредактировал(а) razsagal - 4.4.2009, 22:36

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