2008 年 9月随笔档案 - 万一

通过 SHGetSpecialFolderLocation、SHGetPathFromIDList 函数获取常用路径

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

posted @ 2008-09-23 17:54 万一阅读(12395) 评论(15) 推荐(0) 编辑

几天没有来了

摘要：还是忙着, 要到周一才能来, 所有问题暂时没时间回复, 抱歉了. 阅读全文

posted @ 2008-09-20 09:47 万一阅读(1277) 评论(3) 推荐(0) 编辑

简单播放 mp3 - 回复 "heyongan" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/09/17/1288772.html#1319271 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, St... 阅读全文

posted @ 2008-09-17 14:21 万一阅读(2666) 评论(14) 推荐(0) 编辑

学习官方示例 - SysUtils.EncodeDate、EncodeTime、StrToDate、StrToTime、StrToDateTime

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

posted @ 2008-09-11 15:17 万一阅读(10725) 评论(6) 推荐(0) 编辑

学习官方示例 - SysUtils.DecodeDate、DecodeTime

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

posted @ 2008-09-11 14:31 万一阅读(5776) 评论(4) 推荐(0) 编辑

学习官方示例 - System.RunError

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

posted @ 2008-09-11 14:16 万一阅读(5005) 评论(5) 推荐(0) 编辑

学习官方示例 - System.Frac: 返回小数部分

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

posted @ 2008-09-11 14:09 万一阅读(4716) 评论(2) 推荐(0) 编辑

学习官方示例 - System.Assigned

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

posted @ 2008-09-11 00:50 万一阅读(5434) 评论(10) 推荐(0) 编辑

学习官方示例 - System.TClass

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

posted @ 2008-09-11 00:38 万一阅读(3484) 评论(0) 推荐(0) 编辑

学习官方示例 - System.Hi、System.Lo

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

posted @ 2008-09-11 00:26 万一阅读(3528) 评论(2) 推荐(0) 编辑

给 TComboBox 添加图标 - 回复 "heyongan" 的问题

摘要：首先: 这有现成的控件: TComboBoxEx, 没必要使用 TComboBox; 非要在 TComboBox 基础上添加, 也可以. 本例效果图: 代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialog... 阅读全文

posted @ 2008-09-08 11:43 万一阅读(4652) 评论(19) 推荐(0) 编辑

数组类型与数组指针的巧妙利用 - 回复 "Delphier" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/09/07/1124919.html#1310663 本例通过存取结构, 慢慢引入了数组类型与指针的一些使用方法; 其中六个小例子的测试内容和结果都是一样的. unit Unit1; interface uses Windows, Messages, SysUtils, Variants, C... 阅读全文

posted @ 2008-09-08 01:58 万一阅读(5838) 评论(9) 推荐(1) 编辑

查看字符串在不同编码(ASCII、Unicode、UTF7、UTF8、Default、BigEndianUnicode)下的 Hex

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

posted @ 2008-09-05 10:33 万一阅读(11909) 评论(24) 推荐(0) 编辑

用 TBytesStream 类实现的读文件为十六进制字符的函数

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

posted @ 2008-09-04 17:28 万一阅读(6682) 评论(9) 推荐(0) 编辑

工具条按钮上的下拉菜单 - 没想到是这么容易实现的

摘要：制作步骤: 1、添加一个 TImageList: ImageList1, 然后载入些图标; 2、添加两个 TPopupMenu: PopupMenu1、PopupMenu2, 并分别添加些菜单项; 3、添加一个 TToolBar 控件: ToolBar1, 通过其右键菜单 New Button 添加两个按钮: ToolButton1、ToolButton2; 4、选择属性: To... 阅读全文

posted @ 2008-09-03 14:43 万一阅读(6000) 评论(16) 推荐(0) 编辑

用 TStringList 模拟 "将字符串转换为变量的功能" - 回复 "flq_00000" 和 "外来天客" 的问题

摘要：问题来源: http://www.cnblogs.com/del/archive/2008/09/03/989467.html#1306651 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TF... 阅读全文

posted @ 2008-09-02 22:59 万一阅读(3418) 评论(8) 推荐(0) 编辑

重载 CreateParams 方法[2]: 重载 TForm.CreateParams 方法的几个例子

摘要：这里有所有相关参数的解释: http://www.cnblogs.com/del/archive/2008/04/15/1154359.html//最大化窗口procedure TForm1.CreateParams(var Params: TCreateParams);begin inherited; Params.Style := Params.Style or WS_MAXIMIZE; ... 阅读全文

posted @ 2008-09-02 17:18 万一阅读(8154) 评论(4) 推荐(0) 编辑

重载 CreateParams 方法[1]: 从一个例子开始(取消窗口最大化、最小化按钮的三种方法)

摘要：方法1: 使用 TForm 的 BorderIcons 属性 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCr... 阅读全文

posted @ 2008-09-02 01:56 万一阅读(4873) 评论(7) 推荐(0) 编辑

模拟一个带背景的 TPanel

摘要：程序中用 TPanel 做了容器, 需要给它一个背景图片; 发现这竟是个难题! 发现我经常使用的滚动箱控件 TScrollBox, 是一个很好的替代品. 本例需要先添加两个图片资源, 添加方法可以参考: http://www.cnblogs.com/del/archive/2008/08/23/1274591.html 本例效果图: 代码文件: unit Unit1; interf... 阅读全文

posted @ 2008-09-01 16:59 万一阅读(8477) 评论(12) 推荐(0) 编辑