求助! 请问Delphi写的程序如何指定在某一显示器全屏?

碧树西风 2018-6-3 2057

主机带了4个显示器, 请问如何指定我写的程序在第3个显示全屏显示?

谢谢

最新回复 (4)
  • 杭州菜鸟 2018-6-3
    0 引用 2
         Left := Screen.Monitors[2].Left;
    ...
  • 昆了 2018-6-5
    0 引用 3
    /Form:目标窗体 monitorIndex:显示在哪个屏幕 0为当前屏幕,1为第2个屏幕.....

    procedure SetFormMonitor(Form:TCustomForm;MonitorIndex:integer);
    begin
    if (MonitorIndex>-1) and (MonitorIndex<Screen.MonitorCount) then//保证屏幕索引在范围内
    begin
        Form.SetBounds(Screen.Monitors[MonitorIndex].Left + ((Screen.Monitors[MonitorIndex].Width - Form.Width) div 2),
          Screen.Monitors[MonitorIndex].Top + ((Screen.Monitors[MonitorIndex].Height - Form.Height) div 2),
           Form.Width, Form.Height);
    end;
    end;

    要显示哪个窗体在哪个屏幕调一下上面这个函数就可以了。
  • jjpweb 2018-6-5
    0 引用 4
    form的lefttopwidthheight分别设为Screen.Monitors[2]的这4个属性
返回