2008 年 10月 30 日随笔档案 - 万一

2008年10月30日

摘要：消息值是 $0118 的消息, 是什么消息? 阅读全文

posted @ 2008-10-30 22:57 万一阅读(1493) 评论(2) 推荐(0) 编辑

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) Button1: TBut... 阅读全文

posted @ 2008-10-30 16:55 万一阅读(3659) 评论(0) 推荐(0) 编辑

学习 Message(15): 让窗体同时响应键盘事件的方法

摘要： KeyPreview := True; 即可, 它默认是 False; 这对一些快捷键会有用. 测试代码: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = ... 阅读全文

posted @ 2008-10-30 14:19 万一阅读(4177) 评论(5) 推荐(0) 编辑

学习 Message(14): 区分左右 Shift、Ctrl、Alt

摘要：代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; procedure For... 阅读全文

posted @ 2008-10-30 13:37 万一阅读(3480) 评论(2) 推荐(0) 编辑

学习 Message(13): 解析 TWMMouse.Keys 参数

摘要：本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) protected procedure MyMouseDown... 阅读全文

posted @ 2008-10-30 13:08 万一阅读(2353) 评论(0) 推荐(0) 编辑

学习 Message(12): 整合鼠标 Down 消息

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) protected procedure WMLButtonDown(var Message:... 阅读全文

posted @ 2008-10-30 11:39 万一阅读(2244) 评论(3) 推荐(0) 编辑