delphi - 在第二台显示器上启动程序？

Question

有没有办法在 Delphi 或 C++Builder 中指定应用程序出现在哪个监视器上？

我正在为客户开发一个简单的程序，该程序在辅助监视器上显示由酒店系统生成的厨房订单。目前，他们需要在第二个显示器启动后手动将窗口拖到第二个显示器上。

Answer 1

全局Screen对象(Forms的一部分)具有监视器的概念。我认为这是在 Delphi 6 或 7 左右添加的。以下代码可以工作:

// Put the form in the upper left corner of the 2nd monitor
//   if more then one monitor is present.
if Screen.MonitorCount > 1 then
begin
  Left := Screen.Monitors[1].Left;
  Top := Screen.Monitors[1].Top;
end;

您可以使用该位置的任何正偏移将其放置在该监视器中的任何位置。您也可以从那里获取宽度和高度以了解尺寸。