VPF::Приложения на 2 монитора - Форум программистов

Kusik

Дата 7.12.2006, 11:03 (ссылка)

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

Загрузка ...

Шустрый

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

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

Есть обычный комп, но с двумя мониторами. Они расширяют рабочий стол. Задача стоит в том, чтобы 2 приложения, запускаемые на этом компе запускали на одном и втором мониторах соответственно. Получается только запустить все на одном, а потом мышкой перетащить на второй монитор. При закрытии, и при повторном открытии 2-е приложение нужно заново перетаскивать. Можно ли эту проблему решить другим способом?
Подскажите как?

Snowy

Дата 7.12.2006, 12:37 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Я так понимаю, что приложение твоё.
Тогда при закрытии просто запоминай текущие координаты, а при повторном запуске - восстанавливай.
Кол-во мониторов тут не играет значения smile

Albinos_x

Дата 7.12.2006, 15:23 (ссылка)

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

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

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

Код


   Form2.Left:=0;
   Form2.Top:=0;
   Form3.Left:=Screen.DesktopWidth div 2;
   Form3.Top:=0;
   if Screen.MonitorCount>1 then
      begin
      Form2.Width:=Monitor.Width;
      Form2.Height:=Monitor.Height;
      Form3.Width:=Monitor.Width;
      Form3.Height:=Monitor.Height;
      end
      else
      begin
      Form2.Width:=Monitor.Width div 2;
      Form2.Height:=Monitor.Height;
      Form3.Width:=Monitor.Width div 2;
      Form3.Height:=Monitor.Height;
      end;

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

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

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