如何选择要打开应用程序的显示器？

Question

  

可能重复：
  Start program on a second monitor?

我有两台显示器连接到我的笔记本电脑。如何选择应用程序显示的显示器？

另外，如何检测我连接的显示器数量，以便我可以选择一个？

由于

Answer 1

使用Screen对象。

获取监视器数

ShowMessage(IntToStr(Screen.MonitorCount))

获取监视器详细信息

Screen.Monitors[i].Left (integer)
                  .Top (integer)
                  .Width (integer)
                  .Height (integer)
                  .BoundsRect (TRect)
                  .WorkareaRect (TRect)
                  .Primary (boolean)

其中i是监视器的索引，即i = 0,1，...，Screen.MonitorCount - 1。

因此，例如，要使表单占据整个第i个监视器，请使用

BoundsRect := Screen.Monitors[i].BoundsRect; // or you could make the rect smaller
WindowState := wsMaximized; // possibly