Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:13:52
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 屏幕的宽度（以像素为单位）

赞