摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/04/26/973346.html#1171927 在 Delphi 中存储系列对象, 大家常用 TList 类; 有了 TObjectList(在 Contnrs 单元)以后, 存储对象就有了更好的选择, 因为从 TObjectList 列表中移除的对象同时会得到释放. 很少有人使用 TStringLis... 阅读全文

摘要： 问题来源: http://www.cnblogs.com/del/archive/2008/04/25/973346.html#1171532 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ... 阅读全文

摘要： 提示: 1、因为加入快捷键, 本例的基础代码和以前不同了; 因为窗体初始化时要先载入快捷键资源, 还要拦截快捷键消息另作处理. 2、关于快捷键的话题, 以前接触过不少了, 但那些都不是本质: 注册系统级热键 所有可选的快捷键列表 快捷键设置控件 快捷键的记录方式 3、我曾经以为快捷键不过就是拦截键盘消息, 现在看来那是想得太简单了; 很容易就可以说明: 键盘消息是... 阅读全文

摘要： 提示: 1、CheckMenuItem 函数用来改变菜单项的选择状态; 2、SetClassLong 函数可以修改窗口类注册前登记的所有参数, 这里通过 GCL_HBRBACKGROUND 参数指示要修改画刷; 3、用 CreateSolidBrush 函数根据常量数组中的颜色建立实心画刷; 4、InvalidateRect 用来是客户区无效, 从而导致重绘, 它的第二个参数为 nil 表示要操作... 阅读全文

摘要： 最近发现一些代码, 甚至有一些专家代码, 在遍历数组时所用的数组长度竟然是 SizeOf(arr); 这不合适! 如果是一维数组、且元素大小是一个字节, 这样用看不出错误, 譬如: var arr1: array[0..9] of Char; arr2: array[0..9] of Byte; begin ShowMessageFmt('%d,%d,%d,%d',[Length(... 阅读全文

摘要： 提示: 1、菜单项的标识存放在 WM_MENUSELECT 消息的 lParam 参数中的低两位. 2、WM_MENUSELECT 也包括系统菜单发送的消息. 3、因为顶层菜单(File Edit Help)一般在资源文件中设同样的标识符(譬如: 65535), 所以系统会把它们的位置(或者叫顺序)当作标识; 因此执行 GetMenuString 时, 需要使用用非默认(非0)的 MF_BYPO... 阅读全文

摘要： Cardinal 是 4 字节无符号的整型, 先看一个例数: Cardinal 例数: 4277991664 按字节划分: 第四字节 第三字节 第二字节 第一字节 二进制: 11111110 11111100 11111000 11110000 十六进制: FE FC F8 F0 十进制: 254 252 248 240 按双字节划分: 高两位 低... 阅读全文

摘要： 本例效果图: 本例使用的资源文件(TestRes.rc): MyMenu1 MENUEX BEGIN MENUITEM "File" ,101 MENUITEM "Add" ,102 END 本例代码文件: program Project1; {$R 'TestRes.res' 'TestRes.rc'} uses Windows, Messages; var ... 阅读全文

摘要： 本例效果图: 本例使用的资源文件(TestRes.rc): MyMenu1 MENUEX BEGIN MENUITEM "菜单" ,101 MENUITEM "改变我的禁止与非禁止状态" ,102 MENUITEM "改变" ,103 END 本例代码文件: program Project1; {$R... 阅读全文

摘要： 本例效果图: 本例使用的资源文件(TestRes.rc): MyMenu1 MENUEX BEGIN MENUITEM "Open" ,101 MENUITEM "Old" ,102 MENUITEM "Help" ,103 END 本例代码文件: program Project1; {$R 'TestRes.res' 'TestRes.rc'} uses ... 阅读全文