Delphi6程序员代码编写标准指南三

四、TControl                                                                      
                       
                                                                                
                                    
Align 属性
对应对象：TControl
声明：TAlign = (alNone, alTop, alBottom, alLeft, alRight, alClient);
property Align: TAlign;
功能：Align属性用来确定控件在它的父类中的对齐方式。 Align属性的类型是TAlign，它可以被设置成为以下值中的一个。
      值 意     义
      alNone 组件被保持在它的父类放置的位置，即窗体或面板，它是属性的缺省值。
      alTop 组件被移动到窗体的顶端，并且被重新决定大小以充满窗体的宽，组件的高度不会受到影响。
      alBottom 组件被移动到窗体的底端，并且被重新决定大小以充满窗体的宽，组件的高度不会受到影响。
      alLeft 组件被移动到窗体的左边，并且被重新设定大小以充满窗体的高度，组件的宽度不会受到影响。
      alRight 组件被移动到窗体的右边，并且被重新设定大小以充满窗体的高度，组件的宽度不会受到影响。
      alClient 组件被重新决定大小以充满一个窗体的用户区。如果另一个组件已经占据了用户区的部分，那么组件将重新在用户区中的剩余部分中设定大小。

BoundsRect 属性
对应对象：TControl
声明：TRect = record
case Integer of
  0: (Left, Top, Right, Bottom: Integer);
  1: (TopLeft, BottomRight: TPoint);
end;
property BoundsRect: TRect;
功能：BoundsRect属性用来指出控件的边界的矩形。 BoundsRect属性包含了描述控件父类区域的边界的矩形。矩形的坐标是在父类坐标系中给定。  
Caption 属性
对应对象：TControl
声明：TCaption = type string;
property Caption: TCaption;
功能：Caption属性用来确定用于标记控件的字符串。
控件的标题可以被修改，但在运行时却很少被修改。由于Caption属性对用户禁止编辑，所以要允许用户编辑显示在控件中的文字的控件，应使用Text属性而不是Caption属性。Caption属性的类型为TCaption，它是一个标准的字符串。

例子：
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Caption := ‘Delphi Explorer’;
  Button1.Caption := ‘OK’;
  Label1.Caption := ‘Captions are relatively static’;
end;  
ClientHeight 属性
对应对象：TControl
声明：property ClientHeight: Integer;
功能：ClientHeight属性用来说明控件用户区的高度。
ClientHeight属性对应除窗体之外的所有控件运行时的属性。它用像素来进行度量，许多控件与ClientHeight属性具有相同的高度值。
例子：
procedure TForm1.FormCreate(Sender: TObject);
var
  X, Y: Integer;
begin
  X := Form1.ClientWidth;
  Y := Form1.ClientHeight;
  //...
end;  
ClientOrigin 属性
对应对象：TControl
声明：TPoint = record
  X: Longint;
  Y: Longint;
end;
property ClientOrigin: TPoint;
功能：ClientOrigin属性说明包含控件的用户区的左上角的坐标值。
ClientOrigin属性包含了控件用户区的上部左边的像素的坐标值，坐标是以屏幕的坐标值进行度量。
例子：
procedure TForm1.FormCreate(Sender: TObject);
var
  OriginPoint: TPoint;
begin
  OriginPoint := Form1.ClientOrigin;
end;  
ClientRect 属性
对应对象：TControl
声明：TPoint = record
  X: Longint;
  Y: Longint;
end;
TRect = record
case Integer of
  0: (Left, Top, Right, Bottom: Integer);
  1: (TopLeft, BottomRight: TPoint);
end;
property ClientRect: TRect;
功能：ClientRect属性说明了包含有控件的用户区的尺寸大小。
ClientRect属性是运行时有效，是只读型的。属性包含了控件用户区的边界上下左右的像素位置，对应TRect类型结构区域的左边和上部的坐标值是0，对应的下边和右边的像素值说明了区域的高度和宽度。

例子：
procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Canvas.Brush.Color := clBlue;
  Form1.Canvas.FillRect(Form1.ClientRect);
end;  
ClientWidth 属性
对应对象：TControl
声明：property ClientWidth: Integer;
功能：ClientWidth属性说明包含控件用户区的宽度。
ClientWidth属性是对应除窗体之外的所有控件都有效运行时的属性。该属性表示了控件用户区的水平大小，宽度以像素来度量。对于许多控件ClientWidth属性和Width属性是一致的，而窗体则将用户区视为窗体框架内的成分，窗体的ClientWidth属性通常将小于Width属性的值。

例子：
procedure TForm1.FormCreate(Sender: TObject);
var
  X, Y: Integer;
begin
  X := Form1.ClientWidth;
  Y := Form1.ClientHeight;
  //...
end;
Color 属性
对应对象：TControl
声明：property Color: TColor;
功能：Color属性用来确定控件的颜色。
用户可以使用Color属性来获得颜色或设置控件的颜色。用户可以通过手工来为控件的颜色属性赋予一个值进行重新设置。Color属性是TColor类型的值，它有许多有效的颜色值可以使用，详情见下表。

      值 颜     色
      clBlack 黑色Black。
      clMaroon 栗色Maroon。
      clGreen 绿色Green。
      clOlive 橄榄绿Olive green。
      clNavy 深蓝色Navy blue。
      clPurple 紫色Purple。
      clTeal 深青色Teal。
      clGray 灰色Gray。
      clSilver 银色Silver。
      clRed 红色Red。
      clLine 浅绿色Lime green。
      clBlue 蓝色Blue。
      clFuchsia 紫红色Fuchsia。
      clAqua 浅绿色Aqua。
      clWhite 白色White。
      clBackground 当前的系统桌面的背景颜色
      clActiveCaption 当前的被激活窗口的标题栏的颜色。
      clInactiveCaption 当前的没有被激活的窗口的标题栏的颜色。
      clMenu 当前的菜单背景的颜色。
      clWindow 当前的窗口背景的颜色。
      clWindowFrame 当前的窗口框架的颜色。
      clMenuText 当前的菜单上的文本的颜色。
      clCaptionText 当前的被激活窗口的标题栏的文本的颜色。
      clActiveBorder 当前的被激活窗口的边界颜色。
      clInactiveBorder 当前的没有被激活窗口的边界颜色。
      clAppWorkSpace 当前的应用程序工作区的颜色。
      clHighlight 当前的被选择文本的背景颜色。
      clHighlightText 当前的被选择文本的颜色。
      clBtnFace 当前的按钮表面的颜色。
      clBtnShadow 当前的按钮投影的阴影颜色。
      clGrayText 当前的无效文本的颜色。
      clBtnText 当前的按钮上文本的颜色。
      clInactiveCaptionText 当前的被激活窗口标题栏的文本颜色。
      clBtnHighlight 当前的按钮上高亮度的颜色。
      cl3DDkShadow 只有对Windows95或NT4.0系统：三维显示元素阴影的颜色。
      cl3DLight 只有对Windows95或NT4.0系统：对于三维显示元素的亮面（朝向光源的面）
      clInfoText 只有对Windows95或NT4.0系统：ToolTip（工具提示）的文本颜色。
      clInfoBk 只有对Windows95或NT4.0系统：ToolTip（工具提示）的背景颜色

ControlState 属性
对应对象：TControl
声明：TControlState = set of (csLButtonDown, csClicked, csPalette, csReadingState,
csAlignmentNeeded, csFocusing, csCreating);
property ControlState: TControlState;
功能：ControlState属性用来查询控件运行时的状态。
ControlState属性用来指明运行的每一个时刻控件的状态。属性属于TControlState类型，这个类型是一个标志集，它可以被设置成为以下值的组合形式。

      值 意     义
      csLButtonDown 点击鼠标的左按钮不放，这个是为所有的鼠标按下事件设置的。
      csClicked
      和csLButtonDown一样，只是在ControlStyle属性包含csClickEvents标志时它才被设置，以说明鼠标按下时的事件。
      csPalette 说明一个WM_PALETTCHANGED信息被控件接受或者被控件的父类接受。
      csReadingState 控件正在从一个流中读取它的状态。
      csAlignmentNeeded 当队列再次被允许时控件需要重新排列它自己。
      csFocusing 应用程序过程焦点送给控件。这不能保证控件就将收到焦点，但是防止了递归的调用。
      csPaintCopy 控件被复制，意味着控件的拷贝被打印，控制风格标记csReplicatable必须被设置为该状态的发生。
      csCreating 框架和它的所有者发生“与”或者“或”的逻辑，并且控件被创建了。这个标记将在所有的创建动作完成时被清除。

ControlStyle 属性
对应对象：TControl
声明：TControlStyle = set of (csAcceptsControls, csCaptionMouse,
csDesignInteractive, csFramed, csClickEvents, csSetCaption, csOpaque,
csDoubleClicks, csFixedWidth, csFixedHeight, csNoDesignVisible, csReplicatable,
csNoStdEvents, csDisplayDragImage, csReflector);
property ControlStyle: TControlStyle;
功能：ControlStyle属性用来说明激活一个控件的哪些属性。
ControlStyle属性方式被改变的次数比相应ControlState属性的标记要少。ControlStyle属性属于TControlStyle的类型，它可以是以下值的组合。

      值 意     义
      csAcceptsControls 接受上面的控件。
      csCaptureMouse 当这个事件发生时，控件捕获鼠标的事件。
      csDesignInteractive 控件在设计时将鼠标按钮的右击映射为鼠标按钮的左击来控制控件。
      csClickEvents 控件可以接受并且对按击的操作进行反应。
      csFramed 控件有一个三维框架。
      csSetCaption 如果标题还没有被明确地设置成为其他的内容时，控件将改变它的标题以便和Name属性相匹配。
      csOpaque 控件将用户区的矩形设为透明。
      csDoubleClicks 控件可以对鼠标的双击操作进行接受和反应，此外可以将双击映射成为按击操作。
      csFixedWidth 控件的宽度设为固定值。
      csFixedHeight 控件的高度设为固定值。
      csNoDesignVisible 在设计时控件是不可以变化的。
      csReplicatable 控件可以通过使用PaintTo方法，从而被拷贝到任意一个画面上进行绘制。
      csNoStdEvents
      标准事件，例如鼠标、键盘、点击事件均被忽略。如果用户的代码不需要对这些事件进行反应或者希望用户的应用程序运行更快时将使用这个设置来处理。
      csDisplayDragImage 当鼠标被拖动到控件上面时，控件可从一个图像列表中显示一个图像。使用这个设置可使控件使用一个图像的列表。
      csReflector
      控件将对系统对话框信息、焦点信息及尺寸改变信息进行反应，如果控件被运作一个ActiveX的控件时使用这个设置，可使控件接受这些事件的通知。

Cursor 属性
对应对象：TControl
声明：TCursor = -32768～32767;
功能：Cursor属性用来确定当鼠标在控件上进行拖动时，将显示什么样的鼠标图形。Cursor属性属于TCursor类型变量，它包含了用户可以使用的许多标准的鼠标形式，并包含了以下的有效值：crDefault，crArrow，crNone，crCross，crIBeam，crSize，crSizeNESW，crSizeNS，crSizeNWSE，crSizeWE，crUpArrow，crHourGlass，crDrag，crNoDrop，crHSplit，crVSplit，crMultiDrag，crSQLWait，crNo，crAppStart，crHelp和crHandPoint，每个值对应的鼠标图像可以参考有关函数。

例子：
procedure TForm1.FormCreate(Sender: TObject);
begin
  Button1.Cursor := crCross;
  Panel1.Cursor := crArrow;
end;  
DesktopFont 属性
对应对象：TControl
声明：property DesktopFont: Boolean;
功能：DesktopFont属性说明当写入文本时，控件是否使用系统的桌面的字体。  
DragCursor 属性
对应对象：TControl
声明：TCursor = -32768～32767;
property DragCursor: TCursor;
功能：DragCursor属性用来确定鼠标在拖动时的形式。
在DragCursor属性有效之前用户必须首先设置控件接受下拉时的对象，实际上用户只需处理一个诸如OnDragOver的拖放事件便可实现。
例子：
//Change the cursor shape if an object is dragged over the panel
procedure TForm1.Panel1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  Panel1.DragCursor := crDrag;
end;  
DragMode 属性
对应对象：TControl
声明：TDragMode = (dmManual, dmAutomatic);
property DragMode: TDragMode;
功能：DragMode属性用来确定控件被拖动时的行为。
DragMode属性属于TDragMode类型变量。这个类型有两个有效的值，即两个有效的拖动方式，dmAutomatic：如果dmAutomatic被选择作为拖动形式，则控件可被拖动，并且用户可以随时地点击和拖动控件。dmManual：如果dmManual被选择为其拖动的方式，直到控件调用了BeginDrag方法，控件才可以被拖动。

例子：
procedure TForm1.FormCreate(Sender: TObject);
begin
  //...
  Form1.DragMode := dmAutomatic;
  Panel1.DragMode := dmAutomatic;
end;  
Enabled 属性
对应对象：TControl
声明：property Enabled: Boolean;
功能：Enabled属性用来确定控件对鼠标、键盘及Timer事件是否将作出反应。
如果Enabled属性被设置为真，那么控件将对用户的鼠标、键盘输入及Timer事件作出反应。如果Enabled属性被设置为假，那么控件将变成灰色并且对鼠标、键盘及Timer事件不作反应。一般当控件的功能与当前状态无关时，可将该属性设置为假。
 
Font 属性
对应对象：TControl
声明：property Font: TFont;
功能：Font属性用来确定控件上文字的字体。
Font属性允许用户对控件的文本和标题的字体的属性，选择各种有效的字体。
字体属性包含颜色、名称、尺寸大小及风格。
例子：
with Form1.Font do
begin
  Size := 12;
  Name := ‘Arial’;
  Color := clGreen;
  Style := [fsBold];
end;  
Height 属性
对应对象：TControl
声明：property Height: Integer;
功能：Height属性说明控件高度的尺寸大小。
Height属性以屏幕的像素作为尺寸的度量，指明控件的高度值。
例子：
procedure TForm1.FormPaint(Sender: TObject);
begin
  Panel1.Top := 10;
  Panel1.Left := 10;
  Panel1.Height := Form1.ClientHeight – 20;
  Panel1.Width := Form1.ClientWidth – 20;
end;
Hint属性
对应对象：Tcontrol
声明：property Hint:string;
功能：Hint属性用来说明当光标停止在控件上时将出现工具提示窗口内容。为了使工具能够提示所显示得文字，必须将包含了工具得窗体控件的ShowHint属性为真。如果窗体和控件的ShowHint属性被设置为真，但是没有设置控件Hint属性，那么工具将显示控件父类的Hint的文字。
IsControl属性
对应对象：TControl
声明:property lsControl:Boolean;
功能:IsControl 属性用来决定一个窗体是否存储了它的特别属性。 
Left 属性  
对应对象:Tcontrol
声明:property Left:Integer;
功能:Left属性用来说明控件左边界的水平坐标。Left属性指出控件离它的容器的左边边界是多少象素，并使用屏幕坐标来度量一个窗体的Left属性值。
MouseCapture属性 
对应对象：Tcontrol
声明：property MouseCapture：Boolean;
功能：MouseCapture属性说明控件是否已经俘获了鼠标事件。 
Name属性 
对应对象：TControl
声明：TcomponentName：string；
      propertyName：TComponentName
功能：属性是控件的名，它是可作为一个控件的新名或者用来指出控件的名。 
Parent属性
对应对象：TControl
声明：property Parent:TwinControl;
功能：属性用来指出控件的父类（容器）。控件的父类是可视的，包含了控件的窗口控件。控件在它的父类被撤消时将被自动地撤消。
ParentColor属性 
相应对象：TControl
声明：property ParentColor:Boolean;
功能：ParentColor属性用来确定控件是否将使用父类的颜色值，即Color值。如果ParentColor属性设置为真，那么控件将使用它父类的Color属性的颜色。如果ParentColor属性设置为假，那么控件将使用自己确定的Color属性的颜色值。
ParentFont属性  
对应对象：TControl
声明：property ParentFont:Boolean;
功能：ParentFont属性用来确定控件是否使用父类的Font信息的属性值。如果ParentFont属性设置为真，那么控件将使用它父类的Font属性的字体。如果ParentFont属性设置为假，那么控件将使用自己确定的Font属性的字体属性值。
ParnetShowHint属性 
对应对象：TControl
声明：property ParentShowHint:Boolean;
功能：ParentShowHint用来确定控件是否使用它的父类的ShowHint属性用来显示一个工具的提示。如果ParentShowHint属性设置为真，那么控件将使用它父类的ShowHint属性，以确定此控件是否将显示一个工具提示。如果ParentShowHint属性设置为假，则控件将使用自己定义的ShowHint属性的值以确定控件是否将显示一个工具提示。
PopupMenu属性 
对应对象：TControl
声明：property PopupMenu:TpopupMenu;
功能：PopupMenu属性用来确定当用户右击控件区时，将对应地弹出哪种弹出式菜单。用户可以通过右击控件，来实现对应弹出式菜单的打开操作，用户可以通过调用弹出式菜单的Popup的方法来打开弹出式菜单。
例子：
procedure Tform1.FormCreate(Sender:Tobject);
begin
  Form1.PopupMenu:=PopupMenu1;
  //..
end;
//Exit the appllication when the Exit pop-up menu items is clicked
procedure Tform1.PopUpExitClick(Sender:Tobject);
begin
  Close;
end;
ScalingFlags 属性  
对应对象：TControl
声明：TscalingFlags=set of (sfLeft,sfTop,sfWidth,sfHeight,sfFont);
      property ScalingFlags:TscalingFlags;
功能：ScalingFlags属性反应出控件的哪一个属性还没有进行尺度的计算。
ScalingFlags属性是一个内部标记的集合，首先在计算继承的窗体和控件的缩放比例时被使用。要是没有必要，应用程序将不使用这个属性。以下是标记和它们对应所表达的信息意义：
      标记                   意    义
      SfLeft控件的左边没有被进行尺寸计算缩放。
      SfTop控件的顶端没有被进行尺寸计算缩放。
      SfWidth控件的宽度没有被进行尺寸计算缩放。
      SfHeight控件的高度没有被进行尺寸计算缩放。
      sfFont控件的字体没有被进行尺寸计算缩放。

ShowHint属性 
对应对象：TConcrol
声明：property ShowHint:Boolean;
功能：ShowHint属性用来确定控件是否显示一个工具提示。如果ShowHint属性被设置为真，那么当鼠标或光标停留在控件上时，将会显示出一个具有Hint属性的中文内容的工具提示。如果ShowHint属性被设置为假，同时ParentShowHint属性的值是假，那么将不显示工具的提示，但当ShowHint属性被设置为假ParentShowHint属性的值为真时，工具提示将依据其父类的ShowHint属性，如果父类的ShowHint属性是真，工具提示将显示，否则将不出现提示。ShowHint属性的缺省的值是真。
例子：
procedure Tform1.FormPaint(Sender:Tobject);
begin
  btnHideMenu.ShowHint:=True;
  btnHideMenu.Hint:=’Click here to enable menus’;
end; 
Text 属性  
对应对象：TControl
声明：Tcaption:=type string;
      property Text:Tcaption;
功能：Text属性用来确定控件中出现的用户编辑的文字内容。在运行是可以在程序中对文字进行修改，但却很少这样作。由于Caption的属性，用户是不能编辑的，所以不允许用户编辑的控件所显示的文字将是Caption的属性。
Top 属性 
对应对象：TControl
声明：property Top:Integer;
功能：Top属性用来确定控件左上方的坐标值。Top属性是一个使用了容器坐标的属性。它说明控件的边界距离容器的边界有多少象素，并且窗体的Top属性以及屏幕坐标进行度量。
Visible 属性  
对应对象：TControl
声明：property Visible:Boolean;
功能：Visible属性用来确定控件是否是可见。如果Visible属性为真，那么将是可见的。如果Visible属性为假，则是不可见的。
Width 属性
对应对象：TControl
声明：property Width:Integer;
功能：Width属性说明了控件的宽度值。用户象素值指出控件的水平大小。用户可以在运行时修改Width属性值来改变控件的宽度。
例子：参见Height属性例子。
WindowProc 属性 
对应对象：TControl
声明：TwndMethod=procedure ( var Message:Tmessage) of object;
      property WindowProc:TwndMethod;
功能：WindowProc属性包含了窗口的过程，过程是对传送给控件信息的一种反应。 
BeginDrag 方法 
对应对象：TControl
声明：procedure BeginDrag(Immediate:Boolean);
功能：BeginDrag方法在控件被手工拖动时有效，BeginDrag方法用来启动一个控件的拖动过程。Immediate参数用来确定拖动操作的条件，如果Immediate参数为真，那么拖动将立即实行，同时鼠标将变为拖动设置时的形式，如果Immediate参数为假，鼠标将不改变，只是当鼠标在空间上移动了5个象素时才开始进行拖动的操作。
 
BringToFront 方法
对应对象：TControl
声明：procedure BringToFront;
功能：BringToFront方法用来改变控件轴的次序，并吧它放置在所有其他控件的上面。每一个窗口和非窗口的控件都有对应的Z轴次序。每个窗体上的窗口控件都在相同的Z轴次序上，每个非窗口的控件在一个独自的Z轴次序集合中。一个窗体上的所有窗口控件存在于一个Z轴次序集合中，所有的非窗口控件在另一个的Z轴次序集合中。窗口的控件总是出现在非窗口控件的上面，窗口控件下面的非窗口的控件将不能使用BringToFront方法出现在窗口控件的上面。
例子：
procedure Tform1.Button2Click(Sender:Tobject);
begin
  Button1.BringToFront;
end; 
ChangeScale 方法  
对应对象：TControl
声明：procedure ChangeScale(M,D:Integer);dynamic;
功能：ChangeScale方法改变空间的大小，并依据一个指定的比例值来进行。 
Click 方法
对应对象：TControl
声明：procedure Click:dynamic;
功能：Click方法调用与事件关联的控制事件的句柄。 
ClientToScreen 方法
对应对象：TControl
声明：Tpoint=record
        X:Longint;
        Y:Longint;
End;
Function ClientToScreen(const Point:Tpoint):Tpoint;
功能：方法将控件坐标上的一个点的坐标值转换成屏幕坐标的值。
例子：
procedure Tform1.FormCreate(Sender:Tobject);
var
  ButtonPos:Tpoint;
Begin
  ButtonPos:=Button1.ClientToScreen(Point(Button1.Left,Button1.Top));
  //…
End; 
Create 方法  
对应对象：TControl
声明：constructor Create(Aowner:Tcomponent);override;
功能：Create方法用来创造一个TControl的事件。 
DefaultHandler 方法  
对应对象：TControl
声明：//DefaultHandler provides message handling for all messages that a control
does
//not have specific handlers for.
Procedure DefaultHandler(var Message);override;
功能：DefaultHandler方法用来当一个控件没有指明处理时，提供了对所有信息的缺省处理。 
DoEndDrag 方法  
对应对象：TControl
声明：procedure DoEndDrag (Target:Tobject);X,Y:Integer);dynamic;
功能：DoEndDrag方法提供了对一个控件的OnEndDrag事件进行保护实施的方法。 
DragCanceled 方法
对应对象：TControl
声明：procedure DragCanceled;dynamic;
功能：DragCanceled方法除了提供对一个拖动进行取消反应外没有其他的操作。 
DragOver 方法  
对应对象：TControl
声明：TdragState=(dsDragEnter,dsDragLeave,dsDragMove);
procedure DragOver (Source:Tobject;X,Y:Integer;State:TdragState;var
Accept:Boolean);dynamic;
功能：DragOver方法调用OnDragOver事件的句柄。设置Accept参数为真时将说明使用者可以在控件上放置被拖动的对象，当Accept参数为假时，说明用户不能在控件上放置被拖动的对象到。Source参数时被拖动的对象，以下时可能有效的State参数值。
                   值           意    义
      DsDragEnter鼠标正在进入控件。
      DsDragMove鼠标在控件上移动。
      dsDragLeave鼠标离开控件。

EndDrag 方法  
对应对象：TControl
声明：procedure EndDrag(Drop:Boolean);
功能：EndDrag方法将终止一个控件被进一步的拖动。如果Drop参数为真，那么可以放下控件，如果Drop参数为假，控件将不能被放下，拖动的操作将被取消。 
GetClientOrigin 方法  
对应对象：TControl
声明：function GetClientOrigin:Tpoint;virtual;
功能：GetClientOrigin方法获得一个控件用户区左上角屏幕的坐标值。 
GetClientRect 方法  
对应对象：TControl
声明：Trect=record
case integer of
0: (Left,Top,Right,Botton:Integer);
1: (TopLeft,BottonRight:Tpoint);
end;
function GetClinetRect:Trect;virtual;
功能：GetClinetRect方法返回一个矩形，以用来定义控件的用户区。
GetDeviceContext 方法  
对应对象：TControl
声明：function GetDeviceContext( var WindowHandle:HWnd):Hdc;virtual;
功能：GetDeviceContext方法返回一个设备的上下文。 
GetDragImages 方法  
对应对象：TControl
声明：function GetDragImages:TcustomImageList;virtual;
功能：GetDragImages方法返回控件的图象列表，列表中包含了当拖动时被显示的图像。 
GetPalette 方法  
对应对象：TControl
声明：funciton GetPalette:HPALETTE;dynamic;
功能：GetPalette方法返回一个调色板的句柄，它被控件所使用。 
GetParentComponent 方法  
对应对象：TControl
声明：funciton GetParentComponent:Tcomponent;override;
功能：GetParentComponent方法返回控件父类的组件。 
GetPopupMenu 方法  
对应对象：TControl
声明：function GetPopupMenu:TpopupMenu;dynamic;
功能：GetPopupMenu方法获得一个控件的弹出式菜单。 
GetTextBuf 方法
对应对象：TControl
声明：function GetTextBuf ( Buffer:Pchar;BufSize:Integer):Integer;
功能：GetTextBuf方法用来获得控件所包含的文字，并且将文字拷贝到一个缓冲区中。GetTextBuf方法从控件中获得文字，并把它作为一个以空字符结束的字符串拷贝到Buffer指定的缓冲区内。BufSize参数用来说明缓冲区的大小，在调用GetTextBuf方法之前使用GetTextLen方法进行设置。文字作为一个以空字符结尾的字符串被拷贝到缓冲区中。
例子：
procedure Tform1.Button2Click(Sender:Tobject);
var
  MyBuffer:Pchar;
  MyBufSize:Integer;
Begin
  MyBufSize:=Button1.GetTextLen;
  Button1.GetTextBuf(MyBuffer,MyBufSize);
  StatusBar1.SetTextBuf(MyBuffer);
End; 
GetTextLen 方法
对应对象：TControl
声明：function GetTextLen:Integer;
功能：GetTextLen方法用来检索控件文字的大小。GetTextLen方法一般在调用GetTextBuf方法之前使用，以便确定缓冲区的大小。使用GetTextLen方法可以代替字符串的处理函数。
例子：
procedure Tform1.Button2Click(Sender:Tobject);
var
  MyBuffer:Pchar;
  MyBufSize:Integer;
Begin
  MyBufSize:=Button1.GetTextLen;
  Button1.GetTextBuf(MyBuffer,MyBufSize);
  StatusBar1.SetTextBuf(MyBuffer);
End; 
HasParent 方法  
对应对象：TControl
声明：function HasParent:Boolean;override;
功能：HasParent方法用来说明控件是否有一个父类。 
Hide 方法  
对应对象：TControl
声明：procedure Hide;
功能：Hide方法使一个控件变为不可视的。在Hide方法把控件的Visible属性设置为假      时，可使控件变的不可件的。
例子：
//If the “Hide menus” menu item is clicked,hide the forms menus but make the
//”show menu” button visible so the user can turn the menu on again if necessary
procedure Tform1.menuHideMenu1Click(Sender:Tobject);
begin
        BtnHideMenu.Hide;
        Form1.Menu:=nil;
End;
// If the “Show menu” button is clicked,hide the button and show the form’s main
menu
procedure Tform1.btnShowMenuClick(Sender:Tobject);
begin
  From1.Menu:=MainMenu1;
  BtnHideMenu.Hide;
end; 
Invalildate 方法  
对应对象：TControl
声明：procedure Invalidate;virtual;
功能：Invalidate方法使控件对本身进行再次绘制。在调用Invalidate方法时应该尽快地重新绘制控件，Invalidate方法有Refresh调用。
例子：
procedure Tform1.Button1Click(Sender:Tobject);
begin
  //Invalidate the form so that it can be repainted
  Form1.Intevalidate;
  Form1.Canvas.Repaint;
end; 
MouseDown 方法  
对应对象：TControl
声明：TmouseButton=(mbleft,mbRight,mbMiddle);
TshiftState=set of (ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);
Procedure MouseDown (Button:TmouseButton;Shift:TshiftState;X,Y:Integer);
   Dynamic;
功能：MouseDown方法调用OnMouseDown事件的句柄。 
MouseMove 方法
对应对象：TControl
声明：TshiftState=set of (ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);
      procedure MouseMove(Shift:TshiftState;X,Y:Integer);dynamic;
功能：MouseMove方法调用连接到OnMouseMove事件的句柄。
MouseUp方法
对应对象：Tcontrol
声明：TmouseButton=(mbLeft,mbRight,mbMiddle);
TshiftState=set of (ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);
Procedure MouseUp(Button:TmouseButton;Shift:TshiftState;X,Y:Integer); Dynamic;
功能：MouseUp方法调用了OnMouseUp事件的句柄。
Notification方法
对应对象：Tcontrol
声明：Toperation=(opInsert,opRemove);
procedure Notification(Acomponent:Tcomponent;Operation:Toperation);override;
功能：当弹出式菜单的参考被破坏时Notification方法允许Tcontrol更新它的弹出式菜单的属性。
PaletteChanged方法
对应对象：Tcontrol
声明：function PaletteChanged(Foreground:Boolean):Boolean;dynamic;
功能：PaletteChanged方法对系统调色板的改变进行反应，它重新设置控件调色板的大小。  
Perform方法
对应对象：Tcontrol
声明：function Perform(Msg：Cardinal；WParam,Lparam:Longint):Longint;
功能：Perform方法当控件接受指定的系统信息时反应。  
Refresh方法
对应对象：Tcontrol
声明：procedure Refresh;
功能：Refresh方法用来删除控件中的图像并且重新绘制控件。
Refresh方法使用了InValidate和Update以刷新控件。如果用户的显示部分和其它的分布相混合，可以使用该方法进行更新。
例子：
     procedure Tform1.mnuRefreshClick(Sender:Tobject);
     begin
        Form1.Refresh;
     end;
Repaint方法
对应对象：Tcontrol
声明：procedure Repaint;
功能：Repaint方法使控件对自已进行重新绘制。Repaint方法和Refresh方法一样，只是这个方法不先删除控件的图像。如果用户希望首先删除控件之后再绘制它，可以使用Refresh方法。
 
ScreenToClient方法
对应对象：Tcontrol
声明：Tpoint=record
         X:Longint;
         Y:Longint;
End;
Function ScreenToClient(const Point:Tpoint):Tpoint;
功能：ScreenToClient方法将屏幕的坐标值转换成为控件的坐标值,ScreenToClient方法可以和屏幕到用户区的方法一起使用，以便将应该控件的坐标转换成为另一个控件的坐标值。
 
SendCancelMode方法
对应对象：Tcontrol
声明：procedure SendCancelMode(Sender:Tcontrol);
功能：SendCancelMode方法取消了控件的模式状态。  
SendToBack方法
对应对象：Tcontrol
声明：procedure SendToBack;
功能：SendToBack方法将控件放置到容器中的所有其它控件的下面。窗口和非窗口控件有不同的Ｚ轴的次序集合。一个窗体上的每一个窗口都在一个相同的Ｚ轴的次序集合中，窗口控件总是出现在非窗口控件的上面，所以使用SendToBack方法将不能使一个非窗口控件上面的窗口控件放置到它的下面。

例子：
//Send the button behind the Panel
procedure Tform1.Button1Click(Sender:Tobject);
begin
  Button1.SendToBack;
End;  
SetBounds方法
对应对象：Tcontrol
声明：procedure SetBounds(Aleft,Atop,Awidth,Aheight:Integer);virtual;
功能：SetBounds方法用来设置控件的Left,Top,Width和Height属性。SetBounds方法使用用户可以在一次中设置控件边界的所有属性。这样可以使控件在一次重新绘制时就完成最后的效果，然而，一般的单独调用将使控件进行多次的重新绘制。

例子：
　　　//Have the panel resize with the form
     procedure Tform1.FormResize(Sender:Tobject);
     begin
       Panel1.SetBounds(10,10,Form1.ClientWidth-20,Form1.ClientHeight-20);
End;
 
SetDragMode方法
对应对象：Tcontrol
声明：TdragMode=(dmManual,dmAutomatic);
      procedure SetDragMode(Value:TdragMode);virtual;
功能：SetDragMode方法为控件设置了拖动的模式。  
SetName方法
对应对象：Tcontrol
声明：TcomponentName=type string;
      procedure SetName(const Value:TcomponentName);override;
功能：SetName方法设置了控件的名。  
SetParent方法
对应对象：Tcontrol
声明：procedure SetParent(Aparent:TwinControl);virtual;
功能：SetParent方法使控件可以设置它的父类。  
SetTextBuf方法
对应对象：Tcontrol
声明：procedure SetTextBuf(Buffer:Pchar);
功能：SetTextBuf方法使一个缓冲区中的文字拷贝到一个控件中。
　　　Buffer是一个指向以空字符结束的字符串。
例子：
　　　procedure Tform1.Button2Click(Sender:TObject);
      var MyBuffer:Pchar;
          MyBufSize:Integer;
      Begin
         MyBufSize:=Button1.GetTextLen;
         Button1.GetTextBuf(MyBuffer,MyBufSize);
         StatusBar1.SetTextBuf(MyBuffer);
End;
 
SetZOrder方法
对应对象：Tcontrol
声明：procedure SetZOrder(TopMost:Boolean);dynamic;
声明：Trect=record
      case Integer of
        0:(Left,Top,Right,Bottom:Integer);
        1:(TopLeft,BottomRight:Tpoint);
      end;
      procedure UpdateBoundsRect(const R:Trect);
功能：UpdateBoundsRect方法改变控件的Top,Left,Width和Height属性，但是没有更新控件的屏幕图像。
onClick事件
对应对象：Tcontrol
声明：TnotifyEvent=procedure(Sender:Tobject) of object;
      property:TnotifyEvent;
功能：onClick事件在鼠标指针点击控件时发生。
　　　当用户使用鼠标在控件上时点击鼠标按钮激发一个控件，或用户通过其它的操作触发onClick事件。这个事件是应用程序使用最多的一个事件。用户可以为onClick事件的处理程序设置为运行的过程，也可以在设计时，在大小探测器中为一个控件选择Onlick事件来完成操作。

OnDblClick事件
对应对象：Tcontrol
声明：TnotifyEvent=procedure(Sender:Tobject) of object;
property OnDblClick:TnotifyEvent;
功能：OnDblClick事件当用户双击控件时发生。在用户在一个控件上双击鼠标时将引发OnDblClick事件。用户可以为一个OnDblClick事件的处理程序设置为一个运行过程，也可以在设计时，在大小探测器中为一个控件选择OnDblClick事件来完成操作。

OnDragDrop事件
对应对象：Tcontrol
声明：TdragDropEvent=procedure(Sender,Source:Tobject;X,Y:Integer) of object;
property OnDragDrop:TdragDropEvent;
功能：OnDragDrop事件当一个被拖动的对象被放置到控件上时发生。Sender参数说明了将被放置对象的控件的标识符。Source参数说明了被拖动放置的对象。坐标参数说明了对象被放置到控件的位置。用户可以为一个OnDragDrop事件的处理程序设置为一个运行过程，也可以在设计时，在大小探测器中为一个控件选择OnDragDrop事件来完成操作。

例子：
　　　type
        Tform1=class(Tform)
          Panel1:Tpanel;
          Image1:Timage;
          Procedure MyDragDrop(Sender,Source:Tobject;X,Y:Integer);
          Procedure
MyDragOver(Sender,Source:Tobject;X,Y:Integer;State:TdragState;var  
Accept:Boolean);
       Private
         {Private declarations}
       Public
         {Public declarations}
       end;
    var
    Form1:Tform1;
   Implementation
   {$R *.DFM}
   procedure Tform1.MyDragDrop(Sender,Source:Tobject;X,Y:Integer);
      begin
         if Soruce is Timage then
         begin
            TImage(Source).Parent:=Panel1;
            TImage(Source).Left:=X;
            Timage(Source).Top:=Y;
         End;
       End;
       Procedure
Tform1.MyDragOver(Sender,Source:Tobject;X,Y:Ingeger;State:TdragState;   var
Accept:Boolean);
       Begin
         if Soruce is Timage then    begin
           Timage(Source).DragCursor:=crCross;
           Accept:=True;
         End;
End;
Procedure Tform1.FormCreate(Sender:Tobject);
Begin
  Panel1.OnDragDrop:=Form1.MyDragDrop;
  Panel1.OnDragOver:=Form1.MyDragOver;
End;  
OnDragOver事件
对应对象：Tcontrol
声明：TdragState=(dsDragEnter,dsDragLeave,dsDragMove);
    
TdragOverEvent=procedure(Sender,Source:Tobject;X,Y:Integer;State:TdragState;var:Boolean)
of object;
功能：OnDragOver事件在一个控件上拖动对象时发生。
　　　当用户在控件上拖动一个对象时，OnDragOver事件将发生。Sender说明了控件的标识符。Soruce参数说明被拖动的对象。坐标参数说明了被拖动对象在控件坐标上的位置。Accept参数说明了控件是否允许被拖动的对象放置在它的上面。如果Accept参数被设置为真，那么将使控件接受对象的放置。否则不接受。用户可以为一个OnDragOver事件的处理程序设置为一个运行过程，也可以在设计时，在大小探测器中为一个控件选择OnDragOver事件来完成操作。

例子：参见OnDragDrop事件的例子。  
OnEnddrag事件
对应对象：Tcontrol
声明：TendDragEvent=procedure(Sender,Target:Tobject;X,Y:Integer) of object;
      property OnEndDrag:TendDragEvent;
功能：OnEndDrag事件在一个拖动的操作停止时发生。
　　　当控件接受一个被拖动的对象，或者用户取消了拖动操作时，用户可取消拖动操作。Sender参数是被拖动的对象。Target是鼠标对应的控件，当一个拖动的操作停止时，它将变为被拖动的对象。坐标是使用Target控件的坐标用来说明被拖动的对象在当前的位置。用户可以为一个OnEndDrag事件的处理程序设置一个运行过程，也可以在设计时，在大小探测器中为一个控件选择OnEndrag事件来完成操作。

例子：
     type
        Tform1=class(Tform)
          Panel1:Tpanel;
          Image1:Timage;
          Procedure MyEndDrag(Sender,Target:Tobject;X,Y:Integer);
        Private
         {Private declarations}
        public
         {Public declarations}
        end;
     var
        Form1:tForm1;
     Implementation
      {$R *.DFM}
     procedure Tform1.FormCreate(Sender:Tobject);
     begin
       Image1.OnEndDrag:=Form1.MyEndDrag;
     End;
     Procedure Tform1.MyEndDrag(Sender,Target:Tobject;X,Y:Integer);
     Begin
       If Target is Tpanel then
          StatusBar1.Panels[1].text:=’Drag ended on panel.’
       Else
          Statusbar1.panels[1].text:=’Drag did not end on panel.’;
    End;  
OnMouseDown事件
对应对象：Tcontrol
声明：TMouseButton=(mbLeft,mbRight,mbMiddle);
      TshiftState=set of ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);

      TMouseEvent=procedure(Sender:Tobject;Button:TmouseButton;Shift:Tshiftstat
e;X,Y:Integer) of object;
     Property OnMouseDown:TmouseEvent;
功能：OnMouseDown事件当在控件上点击鼠标时激发。
　　　Sender参数用来说明鼠标点击时，鼠标下面的那一个控件。Button参数说明了使用哪一个鼠标的按钮，此变量是属于TmouseButton类型，有效时为mbLeft,mbRight和mbMiddle。Shift参数是ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble这些参数的任意的组合，如果没有使用修正键，那么Shift将被设置成为[].坐标的参数使用了Sender控件坐标以指出点击时鼠标的位置。用户可以为一个OnMouseDown事件的处理程序设置一个运行过程，也可以设计时，在大小探测器中为一个控件选择OnMouseDown事件来完成操作。

例子：
     type
        Tform1=class(Tform)
         Procedure
MyMouseDown(Sender:Tobject;Button:TmouseButton:Shift;TshiftState;X,Y:Integer);
      Private
        {Private declarations}
      public
        {public declarations}
      end;
    var
       Form1:Tform1;
    Implementation
    {$R *.DFM}
    procedure Tform1.FormCreate(Sender:Tobject);
    begin
      Form1.MyMouseDown:=Form1.MyMouseDown;
    End;
    Procedure
Tform1.MyMouseDown(Sender:Tobject;Button:TmouseButton;Shift:TSHiftState;X,Y:Integer);

    Begin
      StatusBar1.Panels[0].Text:=’MouseDown on
Form:’+IntToStr(X)+’,’+IntToStr(Y);
    End;  
OnMouseMove事件
对应对象：Tcontrol
声明：TshiftState=set of(ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);
      TmouseMoveEvent=procedre(Sender:Tobject;Shift:TshiftState;X,Y:Integer) of
object;
      Property OnMouseMove:TmouseMoveEvent;
功能：OnMouseMove事件当鼠标指针在控件上移动时发生。
　　　当鼠标指针通过每一个控件时，将连续地发生OnMouseMove事件。这个事件的发生将不需要鼠标的点击。Sender参数说明了发生事件的控件。Shift参数是ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble这些参数的任意的组合，如果没有使用修正键那么Shift将被设置成为[].在事件发生时坐标参数将使用控件的坐标系来说明鼠标的位置。用户可以为一个OnMouseMove事件的处理程序设置一个运行过程，也可以设计时，在大小探测器中为一个控件选择OnMouseMove事件来完成操作。

例子：
     type
       Tform1=class(Tform)
         StatusBar1:TstatusBar;
         Procedure MyMouseMove(Sender:Tobject;Shift:TshiftState;X,Y:Integer);
       Private
         {private declarations}
       public
         {public declarations}
       end;
     var
       Form1:Tform1;
     Implementation
     {$R *.DFM}
     procedure Tform1.FormCreate(Sender:Tobject);
     begin
        Form1.OnMouseMove:=Form1.MyMouseMove;
     End;
     Procedure Tfrom1.MyMouseMove(Sender:Tobject;Shift:TshiftState;X,Y:Integer);

     Begin
        StatusBar1.Panels[2].Text:=’MouseMove on
Form:’+IntToStr(X)+’,’+IntToStr(Y);
    End;  
OnMouseUp事件
对应对象：Tcontrol
声明：TmouseButton=(mbLeft,mbRight,mbMiddle);
      TshiftState=set of(ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble);

     
TmouseEvent=procedure(Sender:Tobject;Button:TmouseButton;Shift:TshiftStatus;X,Y:Integer)
of object;
      Property OnMouseUp:TmouseEvent;
功能：OnMouseUp事件当用户点击一个鼠标的按钮时发生。在任何时候用户点击了按钮时，这个事件总是会发生。它说明了用户点击了哪一个按钮，在用户释放按钮时指明按钮指针的位置。Shift参数是ssShift,ssAlt,ssCtrl,ssLeft,ssRight,ssMiddle,ssDouble这些参数的任意组合，如果没有使用修正键那么Shift将被设置成为[]。Button参数说明了是用户释放的是哪一个按钮，它可以是mbLeft,mbRight,mbMiddle三个值：左按钮、右按钮、中间按钮。坐标参数说明了在释放鼠标按钮时，鼠标指针在控件坐标中的位置。用户可以为一个OnMouseUp事件的处理程序设置一个运行过程，也可以设计时，在大小探测器中为一个控件选择OnMouseUp事件来完成操作。

例子：
　　　type
        Tform1=class(Tform)
          Procedure
MyMouseUp(Sender:Tobject;Button:TmouseButton;Shift:TshiftState;X,Y:Integer);
        Private
          {private declarations}
        public
           {public declarations}
       end;
    var
       Form1:Tform1;
   Implementation
   {$R *.DFM}
   procedure Tform1.FormCreate(Sender:Tobject);
   begin
     Form1.OnMouseUp:=Form1.MyMouseUp;
   End;
   Procedure
Tform1.MymouseUp(Sender:Tobject;Button:TmouseButton;Shift:TshiftState;X,Y:Integer);

   Begin
      StatusBar1.Panels[0].Text:=’MouseUp on Form:’+IntToStr(X)+’,’+IntToStr(Y);

   End;  
OnStartDrag事件
对应对象：Tcontrol
声明：TstartDragEvent=procedure (Sender:Tobject;var DragObject:TdragObject) of
object;
      property OnStartDrag:TstartDragEvent;
功能：OnStartDrag事件在控件释放操作发生时点发生。当用户在一个控件上放置鼠标并且点击了按钮以便对控件进行拖动时，OnStartDrag事件将被触发。DragObject参数说明了被拖动的目标。用户可以为一个OnStartDrag事件的处理程序设置一个运行过程，也可以设计时，在大小探测器中为一个控件选择OnStartDrag事件来完成操作。

例子：
    type
      Tform1=class(Tform)
        StatusBar1:Tstatusbar;
       Procedure MyStartDrag(Sender:Tobject;var DragObject:TdragObject);
    Private
     {private decalrations}
     public
       {public declarations}
     end;
     var
        Form1:Tform1;
     Implementation
     {$R *.DFM}
     procedure Tform1.FormCreate(Sender:Tobject);
     begin
        Image1.OnStartDrag:=Form1.MyStartDrag;
     End;
     Procedure Tform1.MyStartDrag(Sender:Tobject;var DragObject:TdragObject);
     Begin
         StatusBar1.Panels[1].Text:=’Drag Started.’;
End;
 
                                                                                
                                    
五、Tscreen                                                                       
                          
                                                                                
                                    
Tobject—>TPersistent—>Tcomponent
      Tscreen的属性：
      In Tscreen
          ActiveControl
          ActiveCustomForm
          ActiveForm
          Cursor
      Cursors
      CustomFormCount
      CustomForms
      DataModuleCount
      DataModeles
      DefaultIme
      DefaultKbLayout
      Fonts
      FormCount
      Forms
      Height
      IconFont
      Imes
      PixelsPerInch
      Width
      从Tcomponent继承来的：
              ComObject
              ComponentCount
              ComponentIndex
              Components
              ComponentState
              ComponentStyle
              DesignInfo
              Name
              Owner
              Tag
              VCLComObject
       
      TScreen的方法
      In TScreen
         Create
         Destroy从TComponent继承来的：
      DestroyComponents
      Destroying
       
      FindComponent
      FreeNotification
      FreeOnRelease
      GetParentComponent
      HasParent
      InsertComponent
      RemoveComponent
      SafeCallExecption
      从TPersistent继承来的:
      Assign
      GetNamePath
      从TObject继承来的:
      ClassInfo
      ClassName
      ClassNameIs
      ClassParent
      ClassType
      CleanupInstance
      DefaultHandler
      Dispatch
      FieldAddress
      Free
      FreeInstance
      GetInterface
      GetInterfaceEntry
      GetInterfaceTable
      InheritsFrom
      InitInstance
      InstanceSize
      MethodAddress
      MethodName
      NewInstance
      TScreen的事件：
         In TScreen
      OnActiveControlChange
      OnActiveFormChange

ActiveControl属性
对应对象：TScreen
声明：property ActiveControl ：TWinControl；
功能：ActiveControl属性用来确定有焦点的控件。
在任何时候，整个屏幕上只有一个控件有焦点。如果控件在应用程序的外面，则用户不能访问它。一般ActiveControl被限制在应用程序的内部。
例子:
//Create a form with many controls，change the Interval property
//of the Timer to 500-every time a control is selected，the Form
//Caption changes to indicate which control has the foucus
procedure TForml.TimerlTimer(Sender：TObject)；
begin
    Form1.Caption := Screen.ActiveControl.Name;
  end; 
ActiveForm属性  
对应对象：TScreen
声明：property ActiveForm ：TForm；
功能：ActiveForm属性用来确定被激活的窗体是哪一个窗体。这个属性是只读型的。它指出具有焦点的窗体。
例子：
//Create a program with  two forms-Show Form2 by
    //clicking a button on the first form. This method will
    //put the name of the active form on Form2’s caption
procedure TForm2.Timer1Timer(Sender : TObject);
begin
  Form2.Caption := Screen.ActiveForm.Name;
end; 
Cursor属性  
对应对象：TScreen
声明：  property Cursor：TCursor；
功能：Cursor属性用来确定光标的形状。
      改变Cursor属性的值将对应地改变应用程序中用户区域的光标形状。
      以下说明使用的TCursor类型时的可能值： 
      类型常数值功  能
      crDefautl0依据ActiveControl。
      crNone-1无光标。
      crArrow-2标准光标。
      crCross-3十字光标。
      crIBeam-4I形光标。
      crSize-5十字箭头光标。
      crSizeNESW-6右斜方箭头光标。
      crSizeNS-7上下方箭头光标。
      crSizeNWSE-8左斜方箭头光标。
      crSizeWE-9左右箭头光标。
      crUpArrow-10向上箭头光标。
      crHourGlass-11等待光标。
      crDrag-12箭头加文本光标。
      crNoDrop-13 
      crHSPlit-14左右移动表格线光标。
      crVSplit-15上下移动表格线光标。
      crMultiDrag-16箭头加多文本光标。
      crSQLWait-17SQL加等待光标。
      crNo-18 
      crAppStart-19等待加箭头光标。
      crHelp-20箭头加问号光标。
      crHandPoint-21手光标。

  例子：
     procedure TForm1.FormCreate(Sender : TObject);
     begin
       Screen.Cursor := crUpArrow;
     end; 
Cursors属性  
对应对象：TScreen
声明：property Cursors [Index:Integer] : HCursor；
功能：Cursors属性是用户可以使用的光标数组。
Cursors属性允许用户在应用程序中加载自定义的光标，全局光标的预定义集由TCursor来定义。前面介绍的Cursor属性中说明了TCursor类的光标元素。如果用户希望创建自己的光标，可以使用Delphi的图形编辑器来绘制光标，并且在源代码中说明一个常量来表示光标在Cursors数组中的位置，使用系统的API函数比LoadCursor以便使这个光标成为程序共享的资源。例如，设想一个用户定制的光标已经被加载到应用程序的资源中去，并且命名为NewCursor。以下的代码使这个光标在应用程序中是有效的，通过光标常数crMyCursor，并设置它是全局的。
例子：
     implementation
     {$R *.DFM}
     const
       crMyCursor = 5;
     procedure TForm1.FormCreate(Sender : TObject);
     begin
       Screen.Cursors[crMyCursor] := LoadCursor(HInstance, ‘NewCursor’);
       Cursor := crMyCursor;
     end; 
CustomFormCount属性  
对应对象：TScreen
声明：property CustomFormCount : Integer;
功能：CustomFormCount说明了在屏幕上所显示的窗体号或属性页。 
CustomForms属性  
对应对象：TScreen
声明：property CustomForms [Index ：Integer]：TCustomForm；
功能：CustomForms是一个所有的属性页和窗体的例表，它们是在当前的屏幕上显示。 
DataModuleCount属性  
对应对象：TScreen
声明：property DataModuleCount：Integer；
功能：DataModuleCount属性说明了在当前的应用程序中例示的数据模块的号。 
DataModules属性  
对应对象：TScreen
声明：property DataModules [Index：Integer]：TDataModule；
功能：DataModules是在当前应用程序中例示的所有数据模块的例表数组。 
DefaultIme属性  
对应对象：TScreen
声明：property DefaultIme：string；
功能：DefaultIme属性说明了输入方法编辑器的名，输入方法编辑器在TScreen对象被创建时被激活。 
DefauItKbLayout属性  
对应对象：TScreen
声明：property DefaultKbLayout：HKL；
功能：DefauItKbLayout属性是当应用程序开始运行时被激活的键盘版面所对应的窗口句柄。 
Fonts属性  
对应对象：TScreen
声明：property Fonts：TStrings；
功能：Fonts属性说明了包含在应用程序中可用的字体例表。Fonts属性是只读型的，它包含了屏幕支持的字体例表，应用程序可用访问。用户可以使用Fonts属性来确定某种字体是否可以被使用，进而确定所使用的字体。
例子：
     //Display all of the available fonts
     procedure TForm1.FormCreate(Sender : TObject);
     begin
       ListBox1.Sorted := True;
       ListBox1.Items := Screen.Fonts;
     end; 
FormCount属性  
对应对象：TScreen
声明：property FormCount：Integer；
功能：FormCount属性包含了应用程序中屏幕上可以看到的窗体数目。它是只读型的。
例子：
     //Get form count
     procedure TForm1.Button1Click(Sender : TObject);
     begin
       Label1.Caption := ‘There is/are’ + IntToStr(Screen.FormCount) +
                      ‘form(s) on the screen.’;
     end; 
Forms属性  
对应对象：TScreen
声明：property Forms[Index：Integer] : TFonn；
功能：Forms属性对应了显示的窗体数组。在应用程序中的每一个窗体所对应的Forms数组中都给了一个确定的位置。程序创建的第一个窗体是Forms[0]，第二个窗体是Forms[1]，依此类推。Forms允许用户通过Index值访问应用程序的每—个窗体。
例子：
当按钮1被按击时，以下的代码加载了在屏幕上的所有的窗体名到ListBoxl上。
procedure TForm1.Button1Click(Sender : TObject);
var
  I : integer;
begin
  For I := 0 to Screen.FormCount – 1 do
    ListBox1.Items.Add(Screen.Forms[I ].Name);
end; 
Height属性  
对应对象：TScreen
声明：property Height : Integer;
功能：Height属性包含有屏幕的高度。
Height属性是只读型的，包含有屏幕的垂直高度尺寸，并以象素来计数。
例子：
     procedure TfrmScreenInfo.FormCreate(Sender : TObject);
     begin
       lblWidth.Caption := IntToStr(Screen.Width);
       lblHeight.Caption := IntToStr(Screen.Height);
       lblPixelsPerInch.Caption := IntToStr(Screen.PixelsPerInch);
     end; 
IconFont属性  
对应对象：TScreen
声明：property IconFont : TFone；
功能：IconFont属性是说明了在文件选择对话框中，显示在图标上的标签的字体形式。 
Imes属性  
对应对象：TScreen
声明：property Imes : TStrings;
功能：Imes属性说明了在系统上安装的所有输入方法编辑器的例表。 
Width属性  
对应对象：TScreen
声明：property Width：Integer；
功能：Width属性说明了屏幕的宽度。这个属性是只读型的，包含有屏幕的水平尺寸，以象素来计数。示例：
     with Screen do
       for I := 0 to FormCount – 1 do
         if Forms[I].Width > Width then Forms[I].Width := Width; 
Create方法  
对应对象：TScreen
声明：constructor Create（AOwner：TComponent）；override；
功能：Create方法用来创建一个TScreen对象的实例。 
Destroy方法  
对应对象：TScreen
声明：destructor Destroy；override；
功能：Destroy方法用来消除一个TScreen对象的实例。 
OnActiveControlChange事件  
对应对象：TScreen
声明：TNotifyEvent ＝ procedure（Sender ：TObject）of object；
      property OnActiveControlChange：TNotifyEvent；
功能：当屏幕的焦点从一个控件转换到另一个控件时发生OnActiveControlChange事件。如果每一次焦点的转换事件发生时用户希望应用程序处理一些操作的话，可以对OnActiveControlChange事件创建一个事件的处理代码来完成。当OnActiveCon-trolChange事件发生时，屏幕的激活控制属性的值将成为将要接收焦点的控件的属性值。
例子：
     unit Unit1;
     interface
     uses
       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
       StdCtrls, ExtCtrls;
     Type
       TForm1 = class(TForm)
         RadioGroup1 : TRadioGroup;
         RadioButton1 : TRadioButton;
         RadioButton2 : TRadioButton;
         RadioButton3 : TRadioButton;
         CheckBox1 : TCheckBox;
         CheckBox2 : TCheckBox;
         Button1 : TButton;
         Button2 : TButton;
         Procedure FormCreate(Sender : TObject);
       private
         {Private declarations}
       public
         //Manually added method declaration
         Procedure FocusChanged(Sender : TObject);
       end;
     var
       Form1 : TForm1;
     implementation
     {$R *.DFM}
     //Create an event handler for OnActiveControlChange
     procedure TForm1.FormCreate(Sender : TObject);
     begin
       Screen.OnActiveControlChange := FocusChanged;
     end;
     //Respond to OnActiveControlChange events
     procedure TForm1.FocusChanged(Sender : TObject);
     begin
       if Screen.ActiveControl = Button2 then
        Button1.Enabled := False;
       Else Button1.Enabled := True;
     end;
     end. 
OnActiveFormChange事件  
对应对象：TScreen
声明：TNotifyEvent ＝ procedure（Sender：TObject） of object；
      property OnActiveFormChange：TNotifyEvent；
功能：在激活的窗体被改变之前OnActiveFormChange事件发生。用户可以为OnActiveFormChange事件创建一个认为代码来实现在窗体改变之前希望完成的操作。
例子：
     unit Unit1;
     interface 
     uses
       Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
       StdCtrls, ExtCtrls;
     Type
       TForm1 = class(TForm)
         RadioGroup1 : TRadioGroup;
         RadioButton1 : TRadioButton;
         RadioButton2 : TRadioButton;
         RadioButton3 : TRadioButton;
         CheckBox1 : TCheckBox;
         CheckBox2 : TCheckBox;
         Button1 : TButton;
         Button2 : TButton;
         Label1 : TLabel;
         procedure FormCreate(Sender : TObject);
         procedure Button1Click(Sender : TObject);
       private
         {Private declarations}
       public
         //Manually added method declaration
         Procedure FormChanged(Sender : TObject);
       end;
     var
       Form1 : TForm1;
     implementation
     uses Unit2;
     {$R *.DFM}
     //Create an event handler for OnActiveFormChange
     procedure TForm1.FormCreate(Sender : TObject);
     begin
       Screen.OnActiveFormChange := FormChanged;
     end;
     //Handle the OnActiveFormChange event
     procedure TForm1.FocusChanged(Sender : TObject);
     begin
       Label1.Caption := ‘Active Form is’ + Screen.ActiveForm.Name;
     end;
     //Show Form2 when the button is pressed
     procedure TForm1.Button1Click(Sender : TObject);
     begin
       Form2.Show;
     end;
end.
 
                                                                                
                                    
六、TColorDialog                                                                  
                              
                                                                                
                                    
TCommonDialog--TColorDialog
Color属性
对应对象：TColorDialog
声明：property Color:TColor default clBlack;
功能：Color属性用来确定在颜色对话框中选择哪一个颜色。当用户选择了一个新的颜色时，Color属性将被设置为新颜色的值。
例子：
//Change the color of the selected text when the user choose a
//color from the Color dialog box
procedure TForm1.sbColorClick(Sender: TObject);
begin
  Colordialog1.Execute;
  RichEdit1.SelAttributes.Color:=Colordialog1.Color;
End;
CustomColors属性
对应对象：TColorDialog
声明：property CustomColors:TStrings;
功能：CustomColors属性确定在颜色对话框中可以获得的一种自定义的颜色。CustomColors属性保存了一个字符串的列表，每一个字符串的格式是：ColorX=HexValue，其中ColorX是16个自定义的颜色中的一个，是从ColorA到ColorP，HexValue参数是一个十六进制的数值，它说明了构成颜色的所对应的RGB值。所以，对应于纯白色这个值是FFFFFF，000000是纯黑，使用Color0＝000000说明了把纯黑色传递给颜色选择。当颜色对话框被关闭时，保存了对话框颜色的列表，以便用户可以在下一次使用对话框时使用自定义颜色。
例子：
procedure TForm1.sbColorClick(Sender: TObject);
var X:Integer;
begin
    Colordialog1.CustomColers:= StrCustomColors;
Colordialog1.Execute;
RichEdit1.SelAttributes.Color:=Colordialog1.Color;
    StrCustomColors:=Colordialog1.CustomColors;
   //Save StrCustomColors to the registry or an INI file
  //when the program exits…
end;
Options属性
对应对象：TColorDialog
声明： TColorDialogOption = (cdFullOpen, cdPreventFullOpen, cdShowHelp,
cdSolidColor,
 cdAnyColor);
  TColorDialogOptions = set of TColorDialogOption;
property Options: TcolorDialogOptions  default[];
功能：Options属性说明了颜色对话框的显示形式和选项。
 以下列举了有效的选项值。
      值意  义
      cdFullOpen当颜色对话框被打开时显示了定制颜色的选项。
      cdPreventFullOpen使在对话框中的定义定制的颜色成为不可用，所以便用者不能定义新的颜色。
      cdShowHelp在对话框之中添加一个帮助按钮。
      cdSolidColor指引系统使用最近的纯颜色的选择。
      cdAnyColor允许使用者选择非纯的颜色(可以被近似的抖动)

缺省时所有的选项是被关闭的。
例子：
procedure TForm1.FormCreate(Sender: TObject);
begin
ColorDialog1.Options:=[ cdFullOpen, cdShowHelp];
end;
OnClose事件
对应对象：TColorDialog
声明：property OnClose:TNotifyEvent;
功能：当一个对话框被关闭时，OnClose事件被引发。当对话框关闭时写入一个OnClose事件的句柄来完成指定的操作。