Delphi中开发使用多显示器的应用程序

最新推荐文章于 2022-12-03 15:56:38 发布

hncsl

最新推荐文章于 2022-12-03 15:56:38 发布

阅读量2k

点赞数

分类专栏： delphi ，vcl 文章标签： delphi 多显示器

本文链接：https://blog.csdn.net/hncsl/article/details/70056202

版权

delphi ，vcl 专栏收录该内容

2 篇文章 0 订阅

订阅专栏

windows7以上系统支持多显示器，Delphi的全局变量screen可以查询当前有几个显示器可用。如果连接多个显示器，那么其中有一个为主显示器，其left=0，
top=0，其它显示器的left和top是相对于主显示器的，如主显示器的分辨率为1366×768，另外一个显示器为1440×900，那么这个显示器的left=1366，

top ，为负值，这个属性可通过monitor属性获得。所以通过设定mainform的left、top、width、height来让程序在指定显示器上面显示。

procedure TMainForm.ToggleScreen(const index: Integer);
var
  rect : TRect;
begin
  if index <= Screen.MonitorCount then
  begin
    rect := Screen.Monitors[ index ].BoundsRect;

    Left := rect.Left;
    Top := rect.Top;
    Width := rect.Width;
    Height := rect.Height;

    Screen.Realign;
    Screen.ResetFonts;
    WriteToScreenCinfig(index);  // 写入ini文件，在程序启动时直接在上次设定的显示器显示
    ScreenBox.ItemIndex := index;
  end;
end;

这个方法通过指定显示器号，让程序在指定的显示器上面运行。