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

2008年10月24日

学习 Message(4): 通过 Application.OnMessage 或 TApplicationEvents 响应消息

摘要：通过 Application.OnMessage 响应消息: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: ... 阅读全文

posted @ 2008-10-24 22:38 万一阅读(5083) 评论(1) 推荐(0) 编辑

学习 Message(3): 响应 WM_LBUTTONDOWN 消息

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

posted @ 2008-10-24 21:28 万一阅读(6129) 评论(2) 推荐(0) 编辑

学习 Message(2): 发送 WM_MOUSEMOVE 消息

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

posted @ 2008-10-24 20:49 万一阅读(6873) 评论(5) 推荐(0) 编辑

学习 Message(1): 消息发送

摘要：消息流程: 譬如用鼠标左键点击一下窗体, 系统会收到一条 WM_LBUTTONDOWN 消息; 当鼠标抬起, 系统又会收到 WM_LBUTTONUP 消息. 系统收到消息后, 会告诉窗体发生的事情, 然后窗体再做出反应; 当然窗体能否做出反应要看窗体是否有相应的响应代码. 要响应 WM_LBUTTONDOWN 消息, 我们需要在 OnMouseDown 事件中写代码; 要响应 WM_LBU... 阅读全文

posted @ 2008-10-24 16:41 万一阅读(9472) 评论(8) 推荐(1) 编辑

一句话为当前窗口客户区捉图: GetFormImage

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

posted @ 2008-10-24 14:42 万一阅读(2829) 评论(4) 推荐(0) 编辑