摘要：待续。。。 阅读全文

摘要：动态创建TXMLDocument对象时（不预先从组件面板拉一个XML组件到在form或其他组件上，纯粹在代码中创建），如果所创建对象未指定其生存周期所依赖的组件时，则在读取该对象属性及属性值时会出现Access violation。为所创建TXMLDocument对象指定其生存周期所依赖的组件，xmlDoc := TXMLDocument.Create(self);或者创建组件对象。调用IXmlDocument创建对象时，不会出现此类错误，即可用xmlDoc := TXMLDocument.Create(nil)。 阅读全文

摘要：获得其他程序控件中的信息，尤其跨进程，这个着实让我头疼捯饬了一阵，最后才明白只能通过WM_GETTEXT消息获取文本。SendMessage(h, WM_GETTEXT, 260, Longint(@Caption));（h：要获取信息的控件句柄；Caption: array [0 .. MAX_PATH] of Char;）此消息即发送给系统并获取控件文本信息至Caption里。以下是自己的代码：View Code 1 procedure TSSoUtils.InsertHwnd(h: HWND); 2 var 3 level, Num: integer; 4 Y: integer... 阅读全文

摘要：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 阅读全文