Delphi项目的框架类:TScreen 类实例|详解|技巧

TScreen 类
TScreen 类封装了有关应用程序运行时屏幕的状态信息。TScreen 既不能作为组件加到窗体上，也不能在运行时动态地创建它。Delphi 7 会自动创建一个TScreen 类型的全局变量，名为Screen。TScreen的主要属性如表3-3 所示。
属性 描述
·ActiveControl 这是一个只读属性，表明当前屏幕上哪个控件具有焦点。当焦点从一个控件切换到另一个控件时，
·ActiveControl 将在失去焦点的那个控件发生onExit 事件之前切换为新的控件
·ActiveForm表明屏幕上哪个窗体具有焦点。不论是在同一个应用程序内还是不同的应用程序之间切换，都会使这个属性发生变化。Cursor 属性用于设置整个应用程序的光标形状。它的默认值是CrDefault。每个控件都有自己的Cursor 属性，并可以单独修改。如果TScreen 的Cursor 属性设为其他值，则所有控件的光标形状都会跟着改变，除非ScreenCursor 又恢复为crDefault。换句话说，ScreenCursor=crDefault意味着每个控件都可以自己设置光标形状。Cursors 列表给出了屏幕所支持的各种光标形状
·DataModuleCount 应用程序中数据模块的个数
·DataModules 应用程序中数据模块的列表
·FormCount 应用程序中窗体的个数
·Forms 应用程序中窗体的列表
·Fonts 这是一个列表，给出了屏幕所支持的各种字体名称
·Height 屏幕的高度（以像素为单位）
·PixelsPerlnch 表示系统字体的相对缩放比例
·Width 屏幕的宽度（以像素为单位）