Скачать: CL | DM;

Вывод на второй дисплей   Найти похожие ветки 

← →
Boom boom box   (2009-02-24 12:52) [0]

Есть приложение, которое работает развернутым на весь экран (без бордеров, заголовков и так далее). Перетащить его, соответственно, невозможно (и не нужно допускать эту возможность).

При заданных настройках как суметь разворачиваться при старте на втором (secondary) мониторе, если к видеокарте подключено 2 монитора?

---

← →
Ega23 ©   (2009-02-24 13:07) [1]

смотри в сторону Screen.MonitorCount, Screen.Monitors[i] и Tform.MakeFullyVisible

---

← →
Boom boom box   (2009-02-24 13:17) [2]

Сори, забыл упомянуть, что программа работает на отдельном десктопе.
В теле главной функции аля:

thisdesktop := GetThreadDesktop(GetCurrentThreadId);
Application.Free;
NewDesktop := CreateDesktop( "BLABLA", nil, nil, 0,
   GENERIC_ALL, nil );
SetThreadDesktop( NewDesktop );
Application := TApplication.Create(nil);
SwitchDesktop( NewDesktop );

возможно, это как-то повиляет на варианты ответов.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c