万一 - 博客园

2008年9月11日

摘要： 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 万一阅读(4737) 评论(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 万一阅读(5454) 评论(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 万一阅读(3495) 评论(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 万一阅读(3552) 评论(2) 推荐(0)

2008年9月8日

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

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

posted @ 2008-09-08 11:43 万一阅读(4687) 评论(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 万一阅读(5866) 评论(9) 推荐(1)

2008年9月5日

查看字符串在不同编码(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 万一阅读(11954) 评论(24) 推荐(0)

2008年9月4日

用 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 万一阅读(6722) 评论(9) 推荐(0)

2008年9月3日

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

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

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

2008年9月2日

用 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 万一阅读(3441) 评论(8) 推荐(0)