我有两个监视器,其中主(左,大)监视器是Screen.Monitors[0]
,次(右,小)监视器是Screen.Monitors[1]
。
因此,在西雅图的Delphi 10中,我写道:
var M: Integer;
M := Self.Monitor.MonitorNum; // -> 1 (main app is located on secondary monitor)
aFullScreenForm := TFullScreenForm.Create(SELF);
aFullScreenForm.SetBounds(Screen.Monitors[M].Left, Screen.Monitors[M].Top, Screen.Monitors[M].Width, Screen.Monitors[M].Height);
aFullScreenForm.ShowModal;
aFullScreenForm.Free;
但是,表aFullScreenForm
总是在主显示器上全屏显示,而不是在辅助显示器上全屏显示!
那么,如何强制在辅助监视器(或主应用程序窗体所在的同一监视器)上打开表单aFullScreenForm
呢?
1条答案
按热度按时间dwthyt8l1#
在主窗体的同一屏幕上显示情态表格
模式表属性
论形态情态OnActivate事件