2014年9月17日
摘要: 消息本身是作为一个记录传递给应用程序的,记录中包含消息的类型以及其它的信息!这个记录类型叫做TMsg,它在WINDOWS单元中声明,这里就不一一列举(偶打字很辛苦的:P) 在WIN32中预定义的一些消息常量往往是以WM开头,以代表某一特定的消息。DELPHI的MESSAGE单元中定义了所有WI... 阅读全文
posted @ 2014-09-17 23:34 云之灵 阅读(739) 评论(0) 推荐(0) 编辑
摘要: procedure WMGetDlgCode(var Msg: TWMGetDlgCode); message WM_GETDLGCODE;{说明: 可以拦截处理方向键,但是有更灵活的方法,介绍如下: 想要你的组件能够处理方向键,你必须要拦截 CM_WANTSPECIALKEY 组件讯息。 CM_W... 阅读全文
posted @ 2014-09-17 23:32 云之灵 阅读(294) 评论(0) 推荐(0) 编辑
摘要: procedure CMWantSpecialKey(var Msg: TCMWantSpecialKey); message CM_WANTSPECIALKEY;{说明: CM_WANTSPECIALKEY - TCMWantSpecialKey - (CM_BASE + 30) sent by ... 阅读全文
posted @ 2014-09-17 23:30 云之灵 阅读(249) 评论(0) 推荐(0) 编辑
摘要: 重载 TCustomForm 中的消息处理函数procedure WMGetMinMaxInfo(var Message: TWMGetMinMaxInfo); message WM_GETMINMAXINFO; procedure TBrxServerForm.WMGetMinMaxInfo(v... 阅读全文
posted @ 2014-09-17 23:28 云之灵 阅读(338) 评论(0) 推荐(0) 编辑
摘要: 改写 procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;消息处理函数。 其中 TWMSysCommand 定义如下: TWMSysCommand = packed record Msg: Car... 阅读全文
posted @ 2014-09-17 23:27 云之灵 阅读(230) 评论(0) 推荐(0) 编辑
摘要: 程序内部的窗体之间切换会出发 OnActive 事件。当两个不同程序之间切换焦点时,会出发Application 的DoDeactivate。procedure DoDeactivate(Sender: TObject);begin ....end;procedure FormCreate(Se... 阅读全文
posted @ 2014-09-17 23:26 云之灵 阅读(248) 评论(0) 推荐(0) 编辑
摘要: 创建目录函数: ForceDirectories :可创建多级目录 CreateDir :只能创建一级目录 不能使用..\log形式 检查目录是否存在: DirectoryExists删除文件: DeleteFile删除文件夹: RmDir('.\log\r'); 阅读全文
posted @ 2014-09-17 23:25 云之灵 阅读(188) 评论(0) 推荐(0) 编辑
摘要: unit MainForm;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TDLLDemo = function(x... 阅读全文
posted @ 2014-09-17 23:24 云之灵 阅读(251) 评论(0) 推荐(0) 编辑
摘要: 开发者都希望自己的程序有一个友好的界面,此时,一个生动活泼、有表现 力的光标就必不可少了。Windows 缺省提供22种标准光标供在程序中调用,但 对一个求新求变的程序员来说,标准光标就不能满足要求了,需要使用自己的 光标,那么,在程序中怎样使用自己的光标呢? ●光标资源的获得 要使用自定义... 阅读全文
posted @ 2014-09-17 23:23 云之灵 阅读(1287) 评论(0) 推荐(0) 编辑
摘要: 在窗体中添加TImage 组件、TOpenDialog组件和TButton组件,TImage组件充当显示文件内图标的容器,TOpenDialog组件和TButton组件用来激活提示用户选择GIF动画的对话框。首先在窗体的uses段中添加ShellAPI,然后添加按钮响应代码如下:procedure... 阅读全文
posted @ 2014-09-17 23:22 云之灵 阅读(497) 评论(0) 推荐(0) 编辑