Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.04.26;
Скачать: 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 вся ветка

Текущий архив: 2009.04.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
2-1237208276
Руслан
2009-03-16 15:57
2009.04.26
Turbo Delphi 2006 Explorer !!!


2-1236858762
Андрей (начинающий)
2009-03-12 14:52
2009.04.26
Модальная форма


15-1235845800
AIRDIGER
2009-02-28 21:30
2009.04.26
как статью поместить


2-1236523735
Руслан
2009-03-08 17:48
2009.04.26
Работа с DBF


8-1189701931
Александр Иванов
2007-09-13 20:45
2009.04.26
Ускоренное воспроизведение видео средствами DirectShow