procedure CMWantSpecialKey(var Msg: TCMWantSpecialKey); message CM_WANTSPECIALKEY;{说明： CM_WANTSPECIALKEY - TCMWantSpecialKey - (CM_BASE + 30) sent by ...
分类：
其他好文 时间：
2014-09-18 00:38:02
阅读次数：
291
程序内部的窗体之间切换会出发 OnActive 事件。当两个不同程序之间切换焦点时，会出发Application 的DoDeactivate。procedure DoDeactivate(Sender: TObject);begin ....end;procedure FormCreate(Se.....
改写 procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;消息处理函数。 其中 TWMSysCommand 定义如下： TWMSysCommand = packed record Msg: Car...
分类：
其他好文 时间：
2014-09-18 00:31:32
阅读次数：
331
在窗体中添加TImage 组件、TOpenDialog组件和TButton组件，TImage组件充当显示文件内图标的容器，TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。首先在窗体的uses段中添加ShellAPI，然后添加按钮响应代码如下:procedure....
分类：
其他好文 时间：
2014-09-18 00:31:02
阅读次数：
361
procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;{说明： 可以拦截处理方向键，但是有更灵活的方法，介绍如下： 想要你的组件能够处理方向键，你必须要拦截 CM_WANTSPECIALKEY 组件讯息。 CM_W...
1.鼠标在客户区拖动窗口 重载消息函数 procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);.....
一、引言
实现跨平台通信的协议主要有简单对象访问协议（Simple Object Access Protocol，SOAP）、代表性状态传输（Representational State Transfer，REST）以及 XML 远程过程调用协议（XML Remote
Procedure Call，XML-RPC）等。
二、为什么选择 XML-RPC？
集成 C/C++ 的挑战可以通过多...
分类：
其他好文 时间：
2014-09-17 23:20:53
阅读次数：
358
定义（定义时不能赋值）：declare @名 类型赋值：set （或select） @名=’需要赋给@名的值’存储过程：手动调用弊端是不容易迁移数据（迁移时迁表，存储时重写）格式：create procedure 存储过程名（UP_表名_操作） 行参（传递的行参）AsBegin 可定义变量（临时用的...
分类：
其他好文 时间：
2014-09-17 18:11:22
阅读次数：
258
delphi 改变闪动光标// 不同风格的光标 procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer); begin CreateCaret(E....
分类：
其他好文 时间：
2014-09-17 11:34:02
阅读次数：
181
首先要在 initialization 区域注册要创建的类 RegisterClass(TYourClass);然后在运行期使用如下代码创建 TYourClass 类的实例。procedure Txxx.xxxx;var cls: TPersistentClass; ys: TYourClass.....
分类：
其他好文 时间：
2014-09-17 01:05:51
阅读次数：
199
