摘要：form.Free - 释放Form占用的所有资源。Free后，Form指针不能再使用，除非对Form重新赋值。 form.Hide - 隐藏Form。可以调用form.Show再一次显示。 form.close - 关闭Form，实际的结果取决于OnCloseQuery和OnClose,如果OnCloseQuery的CanClose为False,不执行任何操作，如果为True,进一步考察OnClose的Action的值: caNone: 不执行任何操作 caHide: 隐藏窗口，同form.Hide caFree: 释放Form占用的资源，同form.Free caMinimi...
阅读全文
摘要：WinAPI: DrawFocusRect - 绘制焦点矩形用SetTextColor()设置颜色 功能 设置指定设备环境(HDC)的字体颜色原型 WINGDIAPI COLORREF WINAPI SetTextColor (HDC, COLORREF)也可以理解成 DWORD SetTextColor (HDC, DWORD),其中DWORD是关于颜色的参数，常用RGB()获取，如：SetTextColor(HDC,RGB(255,0,0));//声明: DrawFocusRect( hDC: HDC; {设备环境句柄} const lprc: TRect {矩形结构} ): ...
阅读全文
摘要：对于对象来说，一个域就象一个变量。域可以是任何类型，包括类类型。（也就是说，域可以保存对象引用。）域通常是私有的。要定义类的域成员，只需简单地象声明变量那样声明域。所有的域声明必需出现在任何属性或方法声明之前。例如，下面的声明创建了一个叫做TNumber的类，该类中除继承自TObject的方法之外，仅有一个叫做Int的整数域成员。type TNumber = class Int: Integer;end;域的范围是静态的，即编译时对域的引用是固定的。要明白这一含义，考虑如下代码：Type TAncestor = class Value: Integer; end;TDescendant = c
阅读全文
摘要：在网上的一片帖子中找到的，挺详细，收藏了。exit: 退出函数体abort: 遇到异常,安静处理,就是不显示不提示break: 退出当前循环体,包括for ,while, repeat等循环体continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行Exit 是跳出当前代码块，也就是当前函数，跳出后是要继续向下执行的（如果有后续代码）。Abort 是从 EAbort 过来的，可以激发 exception，其实质就是 Abort = RaiseException()，是一个不出现对话框的异常。所以 Abort 的行为和异常是一样的，其代码执行顺序也是follow异常的流程。例如：t
阅读全文
摘要：assigned 是用来判断某一指针(pointer)或过程引用是否为nil(空)，如果为空则返回假（false）。用法示例(防止窗体被实例化多次)：procedure TForm1.Button1Click(Sender: TObject);begin if (Not assigned(form2)) then begin form2:=Tform2.Create(Self); end; form2.show;end;procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFr
阅读全文
