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

2017-04-11 19:17:33来源:CSDN作者:hncsl人点击

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;
这个方法通过指定显示器号,让程序在指定的显示器上面运行。

最新文章

123

最新摄影

微信扫一扫

第七城市微信公众平台