如何强制ShowModal在特定的监视器上打开Form?

时间:2016-03-20 18:10:28

标签: delphi multiple-monitors delphi-10-seattle

我有两台显示器,主显示器(左侧,大型)显示器为<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; 在辅助监视器上(或在主申请表所在的同一监视器上)打开?

0 个答案:

没有答案