摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) RadioGroup1: ... 阅读全文
posted @ 2008-06-19 22:13 万一 阅读(2348) 评论(0) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) CheckBox1: TCheckBox; ... 阅读全文
posted @ 2008-06-19 17:27 万一 阅读(1968) 评论(0) 推荐(0)
摘要: 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObj... 阅读全文
posted @ 2008-06-19 16:41 万一 阅读(2932) 评论(7) 推荐(0)
摘要: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Label2: TLab... 阅读全文
posted @ 2008-06-19 15:26 万一 阅读(3897) 评论(0) 推荐(0)
摘要: 本例演示了一个消息的定义、发送和接受的过程. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) ... 阅读全文
posted @ 2008-06-19 12:48 万一 阅读(6905) 评论(14) 推荐(0)
摘要: 本例演示了全局的异常捕获及处理, 并模拟激发了一个异常; 编译后, 单独运行一下生成的程序文件... 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type ... 阅读全文
posted @ 2008-06-19 12:14 万一 阅读(4445) 评论(0) 推荐(0)
摘要: 本例功能: 切换窗口时让程序最小化. 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Se... 阅读全文
posted @ 2008-06-19 11:52 万一 阅读(3136) 评论(0) 推荐(0)
摘要: 本例同时包含了 TOpenPictureDialog 控件的一些用法. 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtDlgs, StdCtrls; type TForm1 = cla... 阅读全文
posted @ 2008-06-19 11:35 万一 阅读(4002) 评论(0) 推荐(0)
摘要: 本例包含用 TFileStream 复制文件和用 ShellAPI.ShellExecute 打开文件夹的方法. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; ... 阅读全文
posted @ 2008-06-19 10:48 万一 阅读(5067) 评论(3) 推荐(0)
摘要: 本例源码下载, 运行效果图: 制作过程: 1、新建工程后, 再添加 Form2、Form3、Form4、Form5; 2、在 Form5 上分别添加一个 TProgressBar、TLabel(使用默认名称); 3、打开工程源码(Project -> View Source), 贴入以下文件后运行. program Project1; uses Forms, SysUtils, ... 阅读全文
posted @ 2008-06-19 09:24 万一 阅读(7954) 评论(2) 推荐(0)
摘要: 问题来源: http://www.cnblogs.com/del/archive/2008/06/18/1083011.html#1229305 告诉 roy.flex 同学: 你的问题还是挺复杂的, 先要完成的就是这一步; 再往下做, 如果要捕获其他程序中的鼠标需要做 DLL; 不过还有个简单办法, 就是用 TTimer 定时获取, 这样也就不用钩子了; 但是还需要知道要操作对象的句柄,... 阅读全文
posted @ 2008-06-19 00:32 万一 阅读(4958) 评论(15) 推荐(0)