[Delphi编程驿站]http://www.delphiesite.91i.net
NotePad 2003
朋友！您好！
很高兴您正在使用我的作品。我选择了Borland公司的产品Delphi ，“NotePad 2003”是我用Delphi编制的一个Windows下的字处理应用程序。目前NotePad 2003 是Delphi的1.0版，它完全可以替代Windows自带的记事本程序。我会不断交流与学习过程序将其加以改进，推出后续版本的。
目前共享软件中已经有了大量的记事本版本，其中不泛有好多经典之作。比如EditPlus，然而英文菜单及提示信息，简直让人有种摸不着头脑的感觉，我们总不能老是汉化别人的东西吧？况且，汉化的版本存在运行不稳定现象。于是本人编制一个集文本编辑、操作方便等功能于一身的记事本程序，NotePad 2003正是在出于这样的想法而产生的。
NotePad 2003特点
NotePad 2003是一个可视化的字处理程序，可以用来编辑文本文件。
您或许要问：Windows下不是已经有了一个记事本了吗？干吗还要用NotePad 2003呢？
理由其实也很简单，NotePad 2003比Windows下的记事本功能强大、且具有较高地实用性。她提供了完善的文本文件处理机制，简洁的文件操作功能，使文本文件的编辑和阅读更方便、更快捷。下面我对两者的优劣点最一个比较，相信你自有判断。
[Windows下的记事本]
优点：
1.无需安装
2.应用程序文件小，Windows下的Notepad.exe只有53K
3.启动速度快、资源占用少
缺点：
1.无法打开大于64K的文件
2.操作不够简便
3.对块的选定、删除等功能有限
4.无法实现自定义的操作
[NotePad 2003]
优点：
1. Office风格菜单
2.支持快捷键的操作
3.可配置操作环境
4. 支持大文件，文件容量在理论上仅受内存限制
5.记忆打开过的文件
6.播放背景音乐
7.自定义快捷键宏
8.插入特殊字符、文件
9.自动阅读模式(可自行设置阅读时间)
10.集成的实用计算器(进行简单地数字运算)
11.控制CD-ROM开关
12.更详细功能见编辑功能和附加功能
缺点：
1.启动速度相对较慢
2.占用系统资源多一点
3.存在一些Bug（在改进中不断完善）
编辑功能
NotePad 2003除了具有“记事本”基本的编辑功能外，还有许多额外的新增功能。其中加上了行号的是“记事本”所不具备的。您可以选择一个主题或者翻至下页开始详细介绍。
+撤销上次操作
要撤销上次操作，请在“编辑”菜单或右键菜单上，单击“撤销”。
快捷键：Ctrl+Z
剪切、复制、粘贴和删除文字
要剪切文字以便将其移到另一位置，请先选定文字，然后在“编辑”菜单或右键菜单上，单击“剪切”。
快捷键：Ctrl+X
要复制文字以便将其粘贴到另一位置，请先选定文字，然后在“编辑”菜单或右键菜单上，单击“复制”。
快捷键：Ctrl+C
要粘贴已剪切或复制到剪贴板上的文字，请将插入点放到待粘贴文字处，然后在“编辑”菜单或右键菜单上，单击“粘贴”。
快捷键：Ctrl+V
要删除文字，请先选定它们，然后在“编辑”菜单或右键菜单上，单击“删除”。
快捷键：Delete或Del
选定全部文本
要选定全部文本，请在“编辑”菜单或右键菜单上，单击“全选”。
快捷键：Ctrl+A
选择、删除当前行
要选定当前一行文本，请在“编辑”菜单或右键菜单上，单击“选择当前行”。直接“三击”当前文本也可。
快捷键：Alt+Y
要删除当前一行文本，请在“编辑”菜单或右键菜单上，单击“删除当前行”。
快捷键：Ctrl+Y
将选定的内容转换为小写、大写
将选定的内容转换为小写，请在“编辑”菜单或右键菜单上，单击“转为小写”。
快捷键：Shift+Ctrl+C
将选定的内容转换为大写，请在“编辑”菜单或右键菜单上，单击“转为大写”。
快捷键：Shift+Ctrl+L
在当前位置插入日期、时间或星期
将插入点移到要添加日期和时间的位置。
要插入日期，请在“编辑”菜单或右键菜单上，单击“插入”，选择“插入日期”。
快捷键：F5
要插入时间，请在“编辑”菜单或右键菜单上，单击“插入”，选择“插入时间”。
快捷键：F6
要插入时间，请在“编辑”菜单或右键菜单上，单击“插入”，选择“插入星期”。
快捷键：F7
插入特殊字符
要插入诸如“①⑴∮§±№”等特殊字符，请在“编辑”菜单或右键菜单上，单击“插入”，选择“插入特殊字符”。然后屏幕会出现特殊字符表，选择即可。
插入文本文件或其它文件
要插入文本文件或其它文件，请在“编辑”菜单或右键菜单上，单击“插入”，选择“插入文件”。然后再选择对话框中的文件即可。
查找或替换指定的字符或单词
要查找指定的字符或单词，请在“搜索”菜单上，单击“查找”。如果您已经选定了某些字符或单词，它们会自动出现在“查找目标”框内，否则请键入要查找的字符或单词。
快捷键：Ctrl+F
要继续查找，请在“搜索”菜单上，单击“查找下一个”或“查找上一个”。
快捷键：F3
要替换指定的字符或单词，请在“搜索”菜单上，单击“查找和替换”。在“查找内容”框输入要被替换的字符或单词，在“替换为”框输入要替换的字符或单词。然后可单击“找下一个”、“替换”或“全部替换”。
快捷键：Ctrl+H
附加功能
以下的这下功能并不是一个纯文本编辑器所必需的，然而这些功能在许多场合下都要用到。
设置打印机和打印
要设置打印机，请在“文件”菜单上，单击“打印设置”，然后对每个选项进行选择。
快捷键：Shift+Ctrl+P
要打印当前文本，请在“文件”菜单上，单击“打印”。
快捷键：Ctrl+P
设置字体的名称、大小、效果
可以通过单击“字体”菜单上的“放大”和“缩小”选项随时放大或缩小当前字体。
快捷键：Ctrl+－，Ctrl+＝
要恢复默认的缺省字体，可在“字体”菜单上，单击“默认字体”。
设置前景色、背景色
如果您对当前前景色或背景色感到不满意，请在“颜色”菜单上，单击“前景色”或“背景色”，然后选择您喜欢的颜色。
要恢复默认的前景色或背景色，可在“颜色”菜单上，单击“默认前景色”或“默认背景色”。
默认的前景色一般是黑色，默认的背景色一般是白色。
全/半角转换
转换全角和半角字符，例如把‘.’ 转换成‘。’
对不起，此功能目前尚不支持，请您期待下一版本。
删去空格
要删去当前编辑文件的前后空格，可在“功能”菜单上，单击“删去空格”，然后选择“删左边”、“ 删右边”或“删两边”即可。
加上行号
要给当前编辑文件加上行号，请在“功能”菜单上，单击“加上行号”。
阅读模式
阅读模式功能是本程序一大特色。您无需动手翻页，只要单击“功能”菜单上的“阅读模式”，电脑会自动一行一行往上卷屏。再单击一次就停止卷屏。
当然，您可以在“配置记事本”中调节翻页的速度。
快捷键：F9
自定义快捷键宏文本
对于那些经常要输入的文本（例如您的姓名、单位等信息）您可以将其设置为宏。要实现此功能，请单击“选项”菜单上的“配置记事本”，然后打开宏选项。
要添加宏，请在宏定义文本框内输入宏定义文本（例如您的姓名），确定宏的快捷键后再单击“添加”按钮即可。
要删除宏，请在宏列表框内选定已定义过的宏定义文本，再单击“删除”按钮即可。
将当前文件当作E-Mail发出
此项功能的作用是调用默认的邮件发送器发送当前编辑的文件。
对不起，此功能目前尚不支持，请您期待下一版本。
写个人日记
NotePad 2003提供了一个写日记的简单模板。当您想写一点东西的时候，只要单击“功能”菜单上的“个人日记”就行了。
小巧实用的计算器
使用方法如下所示：
[数1][运算符][数2]
其中数1数2为十进制整数或小数；运算符可为＋、－、＊、／、^、M、V中的一个，分别实现加法、减法、乘法、除法、开方、取商、取模运算。
[数1][格式符]
其中数1必须为整数，格式符可为Ｄ或Ｈ，分别转换为十进制和十六进制。
其它命令
您可以选择一个主题或者翻至下页开始详细介绍。
显示或隐藏附加的菜单项
此菜单项命令的功能是显示或隐藏一些不常用的菜单命令。
快捷键：Ctrl+W
显示当前文件的属性列表
要查看您正在编辑的文件的属性，请在“文件”菜单上，单击“文件属性”，NotePad 2003会告诉您一切的。
查看剪贴板
要查看剪贴板中的内容，请在“功能”菜单上，单击“查看剪贴板”。
注意：如果您没有安装剪贴板查看程序，该功能将无法实现。
弹出、关上光驱
用软件弹出和关上光驱可以减少开关的磨损，此功能对于开关已坏的朋友来说也许是个福音吧。请在“文件”菜单上，单击“弹出光驱”或“关上光驱”。
快捷键：Ctrl+Alt+E
快捷键：Ctrl+Alt+I
播放背景音乐
利用NotePad 2003能播放音乐，音乐格式包括三种：Wav文件、Midi文件和Mp3文件。对于Wav和Midi，NotePad 2003本身就提供了支持；对于Mp3则调用系统默认的Mp3播放程序。
请在“功能”菜单上，单击“播放背景音乐”，然后再选择文件即可。
快捷键：F12
设置键盘速度
如果键盘的响应速度过慢或过快，请在“选项”菜单上，单击“设置键盘速度”，然后就一目了然了。
快捷键：Ctrl+K
执行其它程序
用过Dos的用户可能会对命令行感兴趣。请在“功能”菜单上，单击“执行其它程序”；然后在对话框内输入该命令行即可运行该程序。
使窗口处于屏幕顶端
要使窗口处于屏幕顶端（其它窗口无法覆盖），请在“窗口”菜单上，单击“处于屏幕顶端”即可。
[环境配置]
NotePad 2003允许您配置编辑环境。请在“选项”菜单上，单击“配置记事本”即可。以下是各项配置选项（其中加“△”的功能有待改进）：
界面
保存窗口大小
保存窗口位置
启动时自动最大化
在标题栏显示完整路径
显示工具栏
显示状态栏
显示附加菜单
显示菜单上的图标
系统设定
定义默认的字体
定义默认的前景色
定义默认的背景色
阅读模式的卷行速度
自动缩进对齐
自动插入空行
建立备份文件
添加到“文档”
日期/时间
您的姓名、单位、地址
日期格式（四种）
时间格式（四种）
星期格式（三种）
宏选项
添加
删除
宏定义文本
该宏文本的快捷键(请确认不要和已定义的冲突)
杂项
添加快捷方式至桌面、右键菜单△
文件关联
文本文件 *.txt;*.text
超文本文件 *.htm;*.html
RTF文件 *.rtf
配置文件 *.ini
批处理文件 *.bat
C源程序 *.c;*.cpp;*.h;*.hpp
其它源程序 *.pas;*.java;*.bas,*.asm
关联其他扩展名文本文件
[快捷键表]
NotePad 2003使用了大量的快捷键，对应列表如下：
快捷键 功能
F1 帮助
F3 查找下一个
F5 日期
F6 时间
F7 星期
F8 加上行号
F9 自动阅读
F10 发送Email
F12 播放音乐
Insert 切换插入或改写模式
Delete 删除选定文本
Home 把光标移至行首
End 把光标移至行尾
PageUp 翻至上一页
PageDown 翻至下一页
Alt+F4 退出记事本
Alt+Y 选定当前行
Shift+方向键 选择文本
Shift+Home 选择至行首
Shift+End 选择至行尾
Shift+Ctrl+P 打印设置
Ctrl+Alt+E 打开CD-ROM
Ctrl+Alt+I 关闭CD-ROM
Ctrl+A 选定全部文本
Ctrl+C 复制选定文本
Ctrl+D 将选定文本转为大写
Ctrl+F 查找文本
Ctrl+G 再打开一个窗口
Ctrl+H 查找或替换文本
Ctrl+K 设置键盘速度
Ctrl+L 将选定文本转为小写
Ctrl+N 新建文件
Ctrl+O 打开文件
Ctrl+P 打印当前文件
Ctrl+S 保存当前文件
Ctrl+V 粘贴文本
Ctrl+Y 删除当前行
Ctrl+Z 撤销上一步操作
Ctrl+F9 运行其它程序
Ctrl+－ 缩小字体
Ctrl+＝ 放大字体
Ctrl+Home 移至文件头
Ctrl+End 移至文件尾
编者介绍
您好！感谢您使用刀剑如梦软件创作室作品！
网名：刀剑如梦，一个中专生，编程当然是半路出家，97年接触计算机到现在也有一段时间了，自98年以来有了上网查资料的经历，直到现在算得上是一个网迷了，但绝对不是痴迷于网络，在网上方便和网友进行技术交流与学习。对于编程是我个人的爱好，在工作中看到Delphi编制的应用程序，偶然的一次我打开这个语言集成开发环境时，让我从此对它情有独钟，此后就从看书本与代码中不断学习！
如果您想获得NotePad 2003的源程序（当然有详细注释的），可以和我联系（yckxzjj@163.com）。如果你也对编程有兴趣，我们可以做个朋友。
如果您发现《NotePad 2003》还有错误和其它不足之处，或者您有某些建议和想法，我都欢迎您尽快和我们联系。让我们一起将《NotePad 2003》做得更好！
制作者：张晶晶
江苏河海电子科技公司
2003年05月
|
虚拟键码 |
对应值 |
对应键 |
|
VK_LBUTTON |
1 |
鼠标左键 |
|
VK_RBUTTON |
2 |
鼠标右键 |
|
VK_CANCEL |
3 |
Cancel |
|
VK_MBUTTON |
4 |
鼠标中键 |
|
VK_XBUTTON1 |
5 |
|
|
VK_XBUTTON2 |
6 |
|
|
VK_BACK |
8 |
Backspace |
|
VK_TAB |
9 |
Tab |
|
VK_CLEAR |
12 |
Clear |
|
VK_RETURN |
13 |
Enter |
|
VK_SHIFT |
16 |
Shift |
|
VK_CONTROL |
17 |
Ctrl |
|
VK_MENU |
18 |
Alt |
|
VK_PAUSE |
19 |
Pause |
|
VK_CAPITAL |
20 |
Caps Lock |
|
VK_KANA |
21 |
|
|
VK_HANGUL |
21 |
|
|
VK_JUNJA |
23 |
|
|
VK_FINAL |
24 |
|
|
VK_HANJA |
25 |
|
|
VK_KANJI |
25* |
|
|
VK_ESCAPE |
27 |
Esc |
|
VK_CONVERT |
28 |
|
|
VK_NONCONVERT |
29 |
|
|
VK_ACCEPT |
30 |
|
|
VK_MODECHANGE |
31 |
|
|
VK_SPACE |
32 |
Space |
|
VK_PRIOR |
33 |
Page Up |
|
VK_NEXT |
34 |
Page Down |
|
VK_END |
35 |
End |
|
VK_HOME |
36 |
Home |
|
VK_LEFT |
37 |
Left Arrow |
|
VK_UP |
38 |
Up Arrow |
|
VK_RIGHT |
39 |
Right Arrow |
|
VK_DOWN |
40 |
Down Arrow |
|
VK_SELECT |
41 |
Select |
|
VK_PRINT |
42 |
|
|
VK_EXECUTE |
43 |
Execute |
|
VK_SNAPSHOT |
44 |
Snapshot |
|
VK_INSERT |
45 |
Insert |
|
VK_DELETE |
46 |
Delete |
|
VK_HELP |
47 |
Help |
|
|
48-57 |
0-9 |
|
|
65-90 |
A-Z |
|
VK_LWIN |
91 |
|
|
VK_RWIN |
92 |
|
|
VK_APPS |
93 |
|
|
VK_SLEEP |
95 |
|
|
VK_NUMPAD0 |
96 |
小键盘 0 |
|
VK_NUMPAD1 |
97 |
小键盘 1 |
|
VK_NUMPAD2 |
98 |
小键盘 2 |
|
VK_NUMPAD3 |
99 |
小键盘 3 |
|
VK_NUMPAD4 |
100 |
小键盘 4 |
|
VK_NUMPAD5 |
101 |
小键盘 5 |
|
VK_NUMPAD6 |
102 |
小键盘 6 |
|
VK_NUMPAD7 |
103 |
小键盘 7 |
|
VK_NUMPAD8 |
104 |
小键盘 8 |
|
VK_NUMPAD9 |
105 |
小键盘 9 |
|
VK_MULTIPLY |
106 |
小键盘 * |
|
VK_ADD |
107 |
小键盘 + |
|
VK_SEPARATOR |
108 |
小键盘 Enter |
|
VK_SUBTRACT |
109 |
小键盘 - |
|
VK_DECIMAL |
110 |
小键盘 . |
|
VK_DIVIDE |
111 |
小键盘 / |
|
VK_F1 |
112 |
F1 |
|
VK_F2 |
113 |
F2 |
|
VK_F3 |
114 |
F3 |
|
VK_F4 |
115 |
F4 |
|
VK_F5 |
116 |
F5 |
|
VK_F6 |
117 |
F6 |
|
VK_F7 |
118 |
F7 |
|
VK_F8 |
119 |
F8 |
|
VK_F9 |
120 |
F9 |
|
VK_F10 |
121 |
F10 |
|
VK_F11 |
122 |
F11 |
|
VK_F12 |
123 |
F12 |
|
VK_F13- VK_F24 |
124-135 |
|
|
VK_NUMLOCK |
144 |
Num Lock |
|
VK_SCROLL |
145 |
Scroll |
|
VK_LSHIFT |
160 |
|
|
VK_RSHIFT |
161 |
|
|
VK_LCONTROL |
162 |
|
|
VK_RCONTROL |
163 |
|
|
VK_LMENU |
164 |
|
|
VK_RMENU |
165 |
|
|
VK_BROWSER_BACK |
166 |
|
|
VK_BROWSER_FORWARD |
167 |
|
|
VK_BROWSER_REFRESH |
168 |
|
|
VK_BROWSER_STOP |
169 |
|
|
VK_BROWSER_SEARCH |
170 |
|
|
VK_BROWSER_FAVORITES |
171 |
|
|
VK_BROWSER_HOME |
172 |
|
|
VK_VOLUME_MUTE |
173 |
VolumeMute |
|
VK_VOLUME_DOWN |
174 |
VolumeDown |
|
VK_VOLUME_UP |
175 |
VolumeUp |
|
VK_MEDIA_NEXT_TRACK |
176 |
|
|
VK_MEDIA_PREV_TRACK |
177 |
|
|
VK_MEDIA_STOP |
178 |
|
|
VK_MEDIA_PLAY_PAUSE |
179 |
|
|
VK_LAUNCH_MAIL |
180 |
|
|
VK_LAUNCH_MEDIA_SELECT |
181 |
|
|
VK_LAUNCH_APP1 |
182 |
|
|
VK_LAUNCH_APP2 |
183 |
|
|
VK_OEM_1 |
186 |
; : |
|
VK_OEM_PLUS |
187 |
= + |
|
VK_OEM_COMMA |
188 |
|
|
VK_OEM_MINUS |
189 |
- _ |
|
VK_OEM_PERIOD |
190 |
|
|
VK_OEM_2 |
191 |
/ ? |
|
VK_OEM_3 |
192 |
` ~ |
|
VK_OEM_4 |
219 |
[ { |
|
VK_OEM_5 |
220 |
| |
|
VK_OEM_6 |
221 |
] } |
|
VK_OEM_7 |
222 |
' " |
|
VK_OEM_8 |
223 |
|
|
VK_OEM_102 |
226 |
|
|
VK_PACKET |
231 |
|
|
VK_PROCESSKEY |
229 |
|
|
VK_ATTN |
246 |
|
|
VK_CRSEL |
247 |
|
|
VK_EXSEL |
248 |
|
|
VK_EREOF |
249 |
|
|
VK_PLAY |
250 |
|
|
VK_ZOOM |
251 |
|
|
VK_NONAME |
252 |
|
|
VK_PA1 |
253 |
|
|
VK_OEM_CLEAR |
254 |
快捷键设置控件_ THotKey
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls; type TForm1 = class(TForm) HotKey1: THotKey; Memo1: TMemo; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; CheckBox4: TCheckBox; procedure FormCreate(Sender: TObject); procedure CheckBox1Click(Sender: TObject); end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.CheckBox1Click(Sender: TObject); begin HotKey1.Modifiers := []; if CheckBox1.Checked then HotKey1.Modifiers := HotKey1.Modifiers + [hkShift]; if CheckBox2.Checked then HotKey1.Modifiers := HotKey1.Modifiers + [hkCtrl]; if CheckBox3.Checked then HotKey1.Modifiers := HotKey1.Modifiers + [hkAlt]; if CheckBox4.Checked then HotKey1.Modifiers := HotKey1.Modifiers + [hkExt]; end; procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Clear; Memo1.Align := alTop; Memo1.ScrollBars := ssVertical; Memo1.Lines.Add('1、你现在看到的可不是 TEdit, 它是处理快捷键用的 HotKey 控件;'); Memo1.Lines.Add('2、激活后, 输入几个字母试试;'); Memo1.Lines.Add('3、按 Ctrl+*; * 表示任意键;'); Memo1.Lines.Add('4、按 Ctrl+Alt+*;'); Memo1.Lines.Add('5、按 Shift+Ctrl+* 或 Shift+Alt+* 都可以;'); Memo1.Lines.Add('6、按 Shift+Ctrl+Alt+* 也可以;'); Memo1.Lines.Add('7、但按 Shift+* 不可以; 因为 HotKey.InvalidKeys 默认禁止了它;'); Memo1.Lines.Add('8、不过我们可以用 HotKey.Modifiers 打开它.'); CheckBox1.Caption := 'hkShift'; CheckBox2.Caption := 'hkCtrl'; CheckBox3.Caption := 'hkAlt'; CheckBox4.Caption := 'hkExt'; CheckBox1.Checked := False; CheckBox2.Checked := False; CheckBox3.Checked := True; CheckBox4.Checked := False; CheckBox2.OnClick := CheckBox1.OnClick; CheckBox3.OnClick := CheckBox1.OnClick; CheckBox4.OnClick := CheckBox1.OnClick; end; end.
