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

碧树西风 17天前 267

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

谢谢

最新回复 (3)
  •      Left := Screen.Monitors[2].Left;
    ...
  • 昆了 15天前
    引用 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 15天前
    引用 4
    form的lefttopwidthheight分别设为Screen.Monitors[2]的这4个属性
返回