我有两台显示器,主显示器(左侧,大型)显示器为<div class="basket">
<p><i class="fa fa-shopping-basket"></i></p>
<p id="item-count">0</p>
</div>
,次要显示器(右侧,更小)显示器为<div class="buy-config">
<form class="buy-form" name="buy-form">
<label>Quantity:</label>
<input type="text" class="num-item" />
<button class="buy-btn">Add to Cart</button>
</form>
</div>
。
所以在Delphi 10 Seattle我写道:
Screen.Monitors[0]
但是,Screen.Monitors[1]
形式始终在主显示器上全屏显示,而不是辅助显示器!
那么如何强制表格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;
在辅助监视器上(或在主申请表所在的同一监视器上)打开?