【Delphi】实现在多显示器时指定程序运行在某个显示器上

在多显示器时代,经常会出现期望将程序运行在某个指定的显示器上,特别是在调试程序的时候,期望切换分辨率,单步调试时,此时容易导致互相卡住,非常不方便,但是通过指定程序运行在不同的显示器上就可以解决这个问题。

代码如下:

Delphi 复制代码
uses
  Vcl.Forms, Winapi.Windows;

procedure MoveFormToScreen(AForm: TForm; ScreenIndex: Integer);
begin
  if (ScreenIndex >= 0) and (ScreenIndex < Screen.MonitorCount) then
  begin
    AForm.Left := Screen.Monitors[ScreenIndex].BoundsRect.Left;
    AForm.Top := Screen.Monitors[ScreenIndex].BoundsRect.Top;
    AForm.Width := Screen.Monitors[ScreenIndex].BoundsRect.Width;
    AForm.Height := Screen.Monitors[ScreenIndex].BoundsRect.Height;

    // 可选:如果只想让窗口在特定屏幕上显示
    // 例如居中
    AForm.Position := poDesigned; 
    AForm.Left := Screen.Monitors[ScreenIndex].BoundsRect.Left +
                  (Screen.Monitors[ScreenIndex].BoundsRect.Width - AForm.Width) div 2;
    AForm.Top := Screen.Monitors[ScreenIndex].BoundsRect.Top +
                 (Screen.Monitors[ScreenIndex].BoundsRect.Height - AForm.Height) div 2;
  end
  else
    raise Exception.Create('Invalid ScreenIndex');
end;

使用示例

在窗体的 OnCreate 事件中调用:

Delphi 复制代码
procedure TForm1.FormCreate(Sender: TObject);
begin
  // 放置在第二个屏幕(索引1)
  MoveFormToScreen(Self, 1);
end;
相关推荐
理想是做个英雄16 小时前
基于AC6351D2做无线键盘
计算机外设·杰理ble,mcu以及蓝牙音频
科技观察1 天前
刘诗雯现身TCL品牌活动,雷鸟34Q9显示器同台竞技
计算机外设
理想是做个英雄1 天前
基于AC6366C做AI语音鼠标
人工智能·计算机外设·杰理ble,mcu以及音频蓝牙
小样还想跑2 天前
UniApp键盘监听全攻略
vue.js·uni-app·计算机外设
10001hours3 天前
(基于江协科技)51单片机入门:4.矩阵键盘
科技·计算机外设·51单片机
私人珍藏库3 天前
[吾爱原创] 【小众工具】鼠标键盘操作可视化工具v1.1 可用于教育培训/演示/远程辅助等
计算机外设
CH_Qing3 天前
Windows 显示器EDID笔记
windows·笔记·计算机外设
科技每日热闻3 天前
双模更超模!飞利浦双模办公娱乐显示器27E2N5900RW优雅登场!
科技·计算机外设·生活
华一精品Adreamer4 天前
如何让台式机连接无线鼠标?2.4GHz与蓝牙配对步骤详解
计算机外设·电脑
FL16238631297 天前
todesk开启虚拟屏后被控黑屏
计算机外设