TFormStyle = (fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop);
TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);
TBorderIcons = set of TBorderIcon; TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly,
poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter);
TDefaultMonitor = (dmDesktop, dmPrimary, dmMainForm, dmActiveForm);
TPrintScale = (poNone, poProportional, poPrintToFit);
TShowAction = (saIgnore, saRestore, saMinimize, saMaximize);
TTileMode = (tbHorizontal, tbVertical);
TCloseAction = (caNone, caHide, caFree, caMinimize);
TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
TCloseQueryEvent = procedure(Sender: TObject;
var CanClose: Boolean) of object;
TFormState = set of (fsCreating, fsVisible, fsShowing, fsModal,
fsCreatedMDIChild, fsActivated);
TShortCutEvent = procedure (var Msg: TWMKey; var Handled: Boolean) of object;
THelpEvent = function(Command: Word; Data: Longint;
var CallHelp: Boolean): Boolean of object;蓝色的部分是什么语法?帮我解释一下两行的语法格式
TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);
TBorderIcons = set of TBorderIcon; TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly,
poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter);
TDefaultMonitor = (dmDesktop, dmPrimary, dmMainForm, dmActiveForm);
TPrintScale = (poNone, poProportional, poPrintToFit);
TShowAction = (saIgnore, saRestore, saMinimize, saMaximize);
TTileMode = (tbHorizontal, tbVertical);
TCloseAction = (caNone, caHide, caFree, caMinimize);
TCloseEvent = procedure(Sender: TObject; var Action: TCloseAction) of object;
TCloseQueryEvent = procedure(Sender: TObject;
var CanClose: Boolean) of object;
TFormState = set of (fsCreating, fsVisible, fsShowing, fsModal,
fsCreatedMDIChild, fsActivated);
TShortCutEvent = procedure (var Msg: TWMKey; var Handled: Boolean) of object;
THelpEvent = function(Command: Word; Data: Longint;
var CallHelp: Boolean): Boolean of object;蓝色的部分是什么语法?帮我解释一下两行的语法格式
TBorderIcons = set of TBorderIcon; //是定义一个集合类型,该类型变量的值可以是在TBorderIcon中枚举的一个或多个值(一个窗体既可以有最大化按钮,也可以有最小化按钮,也可以两者都没有)
TEnum = ( Monday, Tuesday, Wednesday, Thursday, Fridy ) ;********************************//枚举类型 type 类型名称=(值1,值2,值3);2:
集合类型 :是具有相同数据类型元数组成的集合,序数用介于0~255之间,其格式如下: type SET OF 基本类型 //type Tints=set of int
基本类型:只能是任何有序类型,如:整型,字符型,或字介类型,但是不能是实数类型或其它结构类型
注意,一个集合最多只能有2 5 5个元素。另外,只有有序的类型才能跟关键字set of,因此下列的
type
TCharSet=set of char; // 可能的值:#0 - #255