DELPHI中窗体显示方法解析！

2025-03-03 02:52:02

推荐回答（1个）

回答1：

视窗系统能将多个显示器映射为虚拟桌面，使我们能利用这一点设计出方便工作的应用程式。例如PowerPoint就充分发挥了双显示器的优势（大多数的笔记本计算机都支持），他能在一个显示器上播放幻灯片，而在另一个显示器上显示备注，能控制播放的进程，使使用者做商务演说的时候非常等心应手。那么我们怎么研发这种应用程式呢？这篇文章将向你展示如果用Delphi实现使用多显示器的应用程式。

视窗系统还支持克隆显示方式，每个显示器输出同样的内容，这对某些应用也是有意义的。更有些显卡虽然也支持两个显示器，不过他们并不是真正意义上的多显示器，而是虚拟高分辨率显示模式（如2048×768或1024×1536），通过显卡将画面分别显示到两个显示器上。这两种显示模式都不是本文介绍的zhongdian，而且也非常简单，所以我们也就不再赘述了。

视窗系统最多支持10个显示器，视窗系统将所有显示器映射为一个大的虚拟桌面。能将显示器理解为桌面某个局部的视图。在显示属性中能根据显示器的物理位置任意排布这些显示器。如果显示器的排列不规则，虚拟桌面上的某些部分可能无法显示在所有一个显示器上。为了不使一个窗体显示在两个显示器之间等原因的考虑，视窗系统将一个显示器作为主显示器。启动计算机时，登录对话框就显示在主显示器中。绝大多数程式启动示，都会显示在主监视器中。

根据上述介绍，不难发现几个重要的概念：桌面、显示器、主显示器等。首先必须先弄清晰这些概念及他们之前的关系。这是掌控多显示器应用程式研发方法的重点。理解了这些概念，其他的部分就非常好理解了。

桌面实际上是指视窗系统可显示的逻辑区域。实际上是能将一个窗体显示到桌面之外的。然而这并不是说桌面的所有部分都会显示在某台显示器上（原因如前所述）；但反过来说，所有一个显示器显示的内容都必然是桌面的一部分。

桌面是个矩形区域，能通过顶点坐标（Top，Left）和宽高来描述桌面的尺寸。为什么还需要顶点坐标呢？因为顶点坐标不是想当然的（0,0）。那么（0,0）在哪里呢？说来话长，还是让我们先来回顾一下刚才提到地一个概念??主显示器吧。视窗系统希望一般的程式初始的时候显示到主显示器，因为人们习惯于关注一个离自己最近的显示器。而视窗系统也不可能强制用户把最左边一个显示器作为主显示器，这样一来应用程式为了把自己显示到主显示器，就需要费脑筋的计算。然而，多数用户都只有一个显示器（两个显示器实在太占地方了），而一般的应用程式也不希望大费周章的去计算主显示器在哪里，自己应该显示在什么位置。所以视窗系统提出了一个合理的解决方案：以主显示器的顶点坐标作为坐标系的原点。这样一来，普通的程式之需要想在单显示器环境中相同考虑问题就能了。

显示器是桌面的局部视图。就似乎透过窗户看窗外的风景，站在不同的窗前就能看到不同的画面。同样的，显示器也是个矩形区域，同样能通过顶点坐标（Top，Left）和宽高来描述他的尺寸。顶点坐标是相对于桌面坐标系原点的，也就是相对于主显示器的顶点。

工作区的概念比较简单，他是指显示器中除了任务条和其他停靠在桌面上的窗体之外的矩形区域。

视窗系统为多显示器应用程式的研发提供了一组API。VCL将这些API封装起来，非常自然的融入整个Framework之中，使得研发多显示器应用程式变得非常简单。下面就介绍和之相关的内容。

在VCL之中大家最熟悉的恐怕非TCustomForm莫属了，他是所有窗体的基类。TCustomForm的Position属性用来设置窗体的现实位置，其可选值中有两个是值得关心的：一个是poScreenCenter，当Position属性被设置成poScreenCenter时，窗体会显示到主显示器的中心；另一个是poDesktopCenter，当Position属性被设置成poDesktopCenter时，窗体显示在整个桌面的中心。如果把这个属性设成poDesktopCenter，程式又运行在一个有多台显示器的系统上，那么这个窗口就会显示在两个显示器之间，会给用户带来不必要的麻烦。因此即使我们的程式不是针对多显示器而设计的，也应该细心处理这个值。另外一个属性是DefaultMonitor，他的作用和Position有些类似，决定窗口最初显示在哪个显示器内。他有四个备选值：dmDesktop，dmPrimary，dmMainForm和dmActiveForm。他们的含义如下：

Value
Meaning

dmDesktop
不特别处理

dmPrimary
将窗体显示到第一个显示器上。这又是个陷阱，字面上理解是主显示器，而事实上他是指Screen.Monitor[0]这个显示器。

dmMainForm
将窗体显示到主窗体所在的显示器

dmActiveForm
将窗体显示到桌面上活动窗体所在的显示器

TCustomForm更有一个只读的共有属性（没有Published）Monitor，他提供了访问窗体所在显示器实例的引用，这个值和DefaultMonitor是有紧密的关联的。

那么怎么在使窗体在不同的显示器之间移动呢？这并不困难，估计你也想到了。这里介绍两种方法：

第一，能设置TCustomForm的Top和Left使窗体显示在桌面的任意位置。正如前面所述，桌面是由所有显示器组成的。他们有一起的坐标系，所以能根据显示器的逻辑位置决定窗体的位置。目前的问题是怎么获得每个显示器的逻辑位置和尺寸，后面就会介绍。

第二，能调用TCustomForm的MakeFullyVisible方法将窗体完全显示到指定的显示器之中。能通过这个方法避免窗口在两个显示器上各显示一部分。

刚才我们提出了一个问题：怎么获得每个显示器的逻辑位置和尺寸。为了解答这个问题，需要再介绍连个类：TScreen和TMonitor。

TScreen描述和显示设备有关的一些信息，我们主要关心和显示器逻辑位置和尺寸有关的信息。其他方面的内容能在Delphi的文件中获知。在程式运行的时候VCL自动创建一个TScreen的实例??全局变量，所以通常情况下程式是不必实例化TScreen的。

TScreen有一组形如Desktop*的属性，这些属性描述了整个桌面的尺寸和各顶点坐标。更有对研发多显示器应用程式有重要意义的连个属性：MonitorCount和Monitors。通过这两个属性我们能枚举出系统中所有的显示器（TMonitor）的实例，每个实例都反映了相应显示器的相对位置和分辨率等信息（后文会周详说明）。

在TScreen的众多属性之中，我们会找到Height和Width这两个属性。要特别警惕他们不是指整个桌面的尺寸，而是指主显示器的高度和宽度。这非常容易让人产生错觉，无以为是整个桌面的尺寸。和之类似的更有形如WorkArea*的一组属性，他们描述了主显示器的工作区域的尺寸和各顶点坐标。是不是觉得少了什么？为什么没有获取主显示器相对位置的属性？原因就像前面所说的：视窗系统是以主显示器的左上角为坐标系原点的，所以主显示器的相对位置必然是（0，0）。

除了这些属性之外，还要介绍TScreen的三个成员函数：MonitorFromPoint，MonitorFromRect和MonitorFromWindow。顾名思义，他们分别是获取个坐标、某个区域和某个窗口所在的显示器的实例。在实际的研发中可能也会用到。

最佳，再来看看TMonitor类。他封装了物理显示器的有关属性??这些属性都是只读的。下表简单介绍了这些属性的含义，他们对编写多显示器应用程式非常有用：

属性
说明

Handle
获取该显示器的视窗系统句柄

MonitorNum
获取显示器的编号

Primary
获取该显示器是否是主显示器。又且仅有一个显示器的Primary是True。

Top
获取显示器的上边界

Left
获取显示器的左边界

Height
获取显示器的高度

Width
获取显示器的宽度

BoundsRect
获取显示器的对应桌面的区域，他和上面四个属性是等价的

WorkareaRect
获取显示器的工作区对应桌面的区域。

清晰地了解了TScreen和TMonitor之后，前面的问题也就自然解决了。到这里，本文已介绍了研发多显示器应用程式所需的全部知识。相信你能利用这些知识研发出非常实用的软件产品。

最新问答

怎么做医药代理,给药店铺货

黄志忠主演一部电视剧是说高黄两家的恩怨电视剧名字是?

想健身减肥瘦身办了两个月的健身卡体验了两节私教课教练开始推销

大一线性代数怎么复习？

最终的能量来源于哪里

火车上能带理发推子吗？火车站不让带理发推子，如何抗述？