Delphi实例之一个较复杂的记事本的实现

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程›综合其他

原作者: [db:作者] 来自: [db:来源] 收藏邀请

by Chaobs

一、概述

前几天在学习Delphi时照着书上的练习做了一个记事本程序，自己略加改进，将过程记录下来也是方便初学者学习，其中多有错误还望指点。

功能：

（1).基本实现了Windows自带的记事本的功能；

（2).具有字体设置、字体颜色和自动排版的设计；

（3).加入了日历的功能。

运行界面（UI做的很丑诃）：

设计思想：

通过Delphi组件中的RichEdit实现文本的编辑，OepnDialog和SaveDialog用于打开和保存文件，排版、复制等事件用Standar Action来实现。

二、工程结构

（1）.用户界面设计

Form1主窗口

Form2 Form3 Form5 Form6 （Form4后来被我删了但是窗体的Name我没有改，所以Form4是空的，同理下文的unit4）

(2).最后各组件之间的包含关系如下

三、Source Code

以往在网上看到很多Delphi源码都没有发布.dfm文件，这次我将会发布DFM文件。

1.Form1.pas

  1 unit Unit1;
  2 
  3 interface
  4 
  5 uses
  6   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7   Dialogs, ImgList, ComCtrls, ToolWin, ExtCtrls, StdCtrls, Menus, ExtActns,
  8   StdActns, ActnList;
  9 
 10 type
 11   TForm1 = class(TForm)
 12     ImageList1: TImageList;
 13     ToolBar1: TToolBar;
 14     ToolButton1: TToolButton;
 15     ToolButton2: TToolButton;
 16     ToolButton3: TToolButton;
 17     ToolButton4: TToolButton;
 18     ToolButton5: TToolButton;
 19     ToolButton6: TToolButton;
 20     ToolButton7: TToolButton;
 21     ToolButton8: TToolButton;
 22     ToolButton9: TToolButton;
 23     StatusBar1: TStatusBar;
 24     Timer1: TTimer;
 25     OpenDialog1: TOpenDialog;
 26     RichEdit1: TRichEdit;
 27     SaveDialog1: TSaveDialog;
 28     ToolButton11: TToolButton;
 29     FontDialog1: TFontDialog;
 30     ToolButton12: TToolButton;
 31     FindDialog1: TFindDialog;
 32     ToolButton13: TToolButton;
 33     ReplaceDialog1: TReplaceDialog;
 34     ToolButton14: TToolButton;
 35     ColorDialog1: TColorDialog;
 36     ToolButton15: TToolButton;
 37     PrintDialog1: TPrintDialog;
 38     MainMenu1: TMainMenu;
 39     N1: TMenuItem;
 40     N2: TMenuItem;
 41     N3: TMenuItem;
 42     N4: TMenuItem;
 43     N5: TMenuItem;
 44     N6: TMenuItem;
 45     N7: TMenuItem;
 46     N8: TMenuItem;
 47     N9: TMenuItem;
 48     N10: TMenuItem;
 49     N11: TMenuItem;
 50     N12: TMenuItem;
 51     N13: TMenuItem;
 52     N14: TMenuItem;
 53     N15: TMenuItem;
 54     N16: TMenuItem;
 55     N17: TMenuItem;
 56     N18: TMenuItem;
 57     N19: TMenuItem;
 58     N20: TMenuItem;
 59     N21: TMenuItem;
 60     N22: TMenuItem;
 61     N23: TMenuItem;
 62     N24: TMenuItem;
 63     ActionList1: TActionList;
 64     EditCut1: TEditCut;
 65     EditCopy1: TEditCopy;
 66     EditPaste1: TEditPaste;
 67     EditSelectAll1: TEditSelectAll;
 68     EditUndo1: TEditUndo;
 69     EditDelete1: TEditDelete;
 70     RichEditBold1: TRichEditBold;
 71     RichEditItalic1: TRichEditItalic;
 72     RichEditUnderline1: TRichEditUnderline;
 73     N25: TMenuItem;
 74     PopupMenu1: TPopupMenu;
 75     Copy1: TMenuItem;
 76     Paste1: TMenuItem;
 77     Cut1: TMenuItem;
 78     SelectAll1: TMenuItem;
 79     Delete1: TMenuItem;
 80     N26: TMenuItem;
 81     N27: TMenuItem;
 82     N28: TMenuItem;
 83     Help1: TMenuItem;
 84     About1: TMenuItem;
 85     Contents1: TMenuItem;
 86     RichEditAlignLeft1: TRichEditAlignLeft;
 87     RichEditAlignRight1: TRichEditAlignRight;
 88     RichEditAlignCenter1: TRichEditAlignCenter;
 89     Center1: TMenuItem;
 90     AlignLeft1: TMenuItem;
 91     AlignRight1: TMenuItem;
 92     C1: TMenuItem;
 93     N29: TMenuItem;
 94     N30: TMenuItem;
 95     N31: TMenuItem;
 96     procedure FormCreate(Sender: TObject);
 97     procedure Timer1Timer(Sender: TObject);
 98     procedure RichEdit1SelectionChange(Sender: TObject);
 99     procedure RichEdit1Change(Sender: TObject);
100     procedure ToolButton2Click(Sender: TObject);
101     procedure ToolButton3Click(Sender: TObject);
102     procedure ToolButton11Click(Sender: TObject);
103     procedure ToolButton12Click(Sender: TObject);
104     procedure FindDialog1Find(Sender: TObject);
105     procedure ToolButton13Click(Sender: TObject);
106     procedure ReplaceDialog1Replace(Sender: TObject);
107     procedure ToolButton14Click(Sender: TObject);
108     procedure ToolButton15Click(Sender: TObject);
109     procedure ToolButton1Click(Sender: TObject);
110     procedure N6Click(Sender: TObject);
111     procedure About1Click(Sender: TObject);
112     procedure Contents1Click(Sender: TObject);
113     procedure C1Click(Sender: TObject);
114     procedure N30Click(Sender: TObject);
115     procedure N31Click(Sender: TObject);
116   private
117     { Private declarations }
118   public
119     { Public declarations }
120   end;
121 
122 var
123   Form1: TForm1;
124 
125 implementation
126 
127 uses Unit2, Unit3, Unit5, Unit6;
128 
129 {$R *.dfm}
130 
131 {此过程用于窗口创建时状态栏时间的显示}
132 procedure TForm1.FormCreate(Sender: TObject);
133 begin
134   StatusBar1.Panels[3].Text:=DateTimeToStr(Now);
135 end;
136 
137 {此过程用于 动态修改状态栏时间}
138 procedure TForm1.Timer1Timer(Sender: TObject);
139 begin
140   StatusBar1.Panels[3].Text:=DateTimeToStr(Now);
141 end;
142 
143 {此过程用于显示光标所在的位置}
144 procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
145 begin
146   StatusBar1.Panels[0].Text:='位置：'+IntToStr(RichEdit1.CaretPos.Y+1)+'行'
147     +IntToStr(RichEdit1.CaretPos.X)+'列';
148 end;
149 
150 {此过程用于在状态栏显示文件是否被修改}
151 procedure TForm1.RichEdit1Change(Sender: TObject);
152 begin
153   if RichEdit1.Modified then
154     StatusBar1.Panels[1].Text:='修改'
155 end;
156 
157 {打开文本文件操作}
158 procedure TForm1.ToolButton2Click(Sender: TObject);
159 var
160   FName:string;
161 begin
162    with OpenDialog1 do
163      begin
164        Filter:='文本文件(*.txt|*.txt';      {文件类型过滤器，防止打开非文本文件}
165        DefaultExt:='txt';
166        Filename:='';
167        Options:=[ofHideReadOnly,ofFileMustExist,ofPathMustExist];
168        if execute
169          then
170            if ofExtensionDifferent in Options
171              then MessageDlg('这不是文本文件。',mtError,[mbOK],0)
172              else
173                begin
174                  RichEdit1.Lines.LoadFromFile(OpenDialog1.FileName);
175                  FName:=OpenDialog1.FileName;
176                  StatusBar1.Panels[2].Text:=FName;
177                end;
178      end;
179 end;
180 
181 {此过程用于保存文件}
182 procedure TForm1.ToolButton3Click(Sender: TObject);
183 var
184   fname:string;
185 begin
186    with SaveDialog1 do
187      if Execute
188        then
189          begin
190            DefaultExt:='txt';
191            RichEdit1.Lines.SaveToFile(FileName);
192            RichEdit1.Modified:=false;
193            FName:=SaveDialog1.FileName;
194            StatusBar1.Panels[2].Text:=FName;
195          end;
196 end;
197 
198 {改变字体的过程}
199 procedure TForm1.ToolButton11Click(Sender: TObject);
200 begin
201   If RichEdit1.SelLength>0
202     then
203       begin
204         FontDialog1.Font.Assign(RichEdit1.SelAttributes);{使用FontDialog}
205         if FontDialog1.Execute
206           then RichEdit1.SelAttributes.Assign(FontDialog1.Font);
207       end
208     else
209       ShowMessage('请先选中一段文本。')    {没有选中任何字}
210 end;
211 
212 {此过程用于启动查找}
213 procedure TForm1.ToolButton12Click(Sender: TObject);
214 begin
215   FindDialog1.Execute
216 end;
217 
218 {通过 FindDialog 提供的方法来实现查找文本}
219 procedure TForm1.FindDialog1Find(Sender: TObject);
220 var
221   FoundPos,InitPos:integer;
222 begin
223   InitPos:=RichEdit1.SelStart+RichEdit1.SelLength;
224   FoundPos:=Pos(FindDialog1.FindText,Copy(RichEdit1.Text,
225              InitPos+1,Length(RichEdit1.Text)-InitPos));
226   {用pos函数定位字符串位置}
227   if FoundPos>0   {文档中不止一个}
228     then
229       begin
230         RichEdit1.SetFocus;
231         RichEdit1.SelStart:=InitPos+FoundPos-1;
232         RichEdit1.SelLength:=Length(FindDialog1.FindText);
233       end
234     else     {没有找到}
235       MessageDlg('没有找到要查找的文本',mtInFormation,[mbOK],0);
236   InitPos:=RichEdit1.SelStart+RichEdit1.SelLength;
237 end;
238 
239 {启动替换}
240 procedure TForm1.ToolButton13Click(Sender: TObject);
241 begin
242   ReplaceDialog1.Execute;
243 end;
244 
245 {此过程用于实现替换功能}
246 procedure TForm1.ReplaceDialog1Replace(Sender: TObject);
247 var
248   i,n:integer;
249   s,find,replace:string;
250 begin
251   s:=RichEdit1.Text;
252   find:=ReplaceDialog1.FindText;
253   n:=Length(find);
254   Replace:=ReplaceDialog1.ReplaceText;
255   i:=Pos(find,s);
256   RichEdit1.SelStart:=i-1;
257   RichEdit1.SelLength:=n;
258   RichEdit1.SelText:=Replace;
259   if frReplaceAll in ReplaceDialog1.Options
260     then
261       repeat
262         s:=RichEdit1.Text;
263         i:=pos(find,s);
264         if i<>0
265           then
266             RichEdit1.Text:=Copy(s,1,i-1)+Copy(s,i+n,length(s)-(i+n)+1);
267             {将文件分成三段：1--(i-1),i--(i+n),(i+n+1)--Length(s)}
268       until i=0;
269 end;
270 
271 {此过程实现文字颜色的改变}
272 procedure TForm1.ToolButton14Click(Sender: TObject);
273 begin
274   with ColorDialog1 do
275     begin
276       Color:=RichEdit1.SelAttributes.Color;
277       if Execute
278         then
279           RichEdit1.SelAttributes.Color:=Color;
280     end;
281 end;
282 
283 {此过程用于实现打印功能}
284 procedure TForm1.ToolButton15Click(Sender: TObject);
285 begin
286   with PrintDialog1 do
287     begin
288       Options:=[poPrintToFile];
289       PrintToFile:=true;
290       if execute
291         then
292           begin
293             if PrintToFile
294               then
295                  begin
296                    SaveDialog1.Title:='打印到文件: ';
297                    if SaveDialog1.Execute
298                      then RichEdit1.Lines.SaveToFile(SaveDialog1.FileName+
299                            '.prt');
300                  end
301               else RichEdit1.PaintTo(Handle,10,10);
302           end;
303     end;
304 
305 end;
306 
307 {此过程用于实现“新建”，注意：这将会清空所有未保存的内容}
308 procedure TForm1.ToolButton1Click(Sender: TObject);
309 begin
310   RichEdit1.Clear;
311 end;
312 
313 {退出}
314 procedure TForm1.N6Click(Sender: TObject);
315 begin
316   Form1.Close;
317 end;
318 
319 {弹出作者姓名}
320 procedure TForm1.About1Click(Sender: TObject);
321 begin
322   ShowMessage('(C)Choabs,2014') ;
323 end;
324 
325 {打开帮助窗口}
326 procedure TForm1.Contents1Click(Sender: TObject);
327 begin
328   Form2.Show;
329 end;
330 
331 {打开日历窗口}
332 procedure TForm1.C1Click(Sender: TObject);
333 begin
334   Form3.Show;
335 end;
336 
337 {打开法律信息窗口}
338 procedure TForm1.N30Click(Sender: TObject);
339 begin
340   form5.Show;
341 end;
342 
343 {打开感谢窗口}
344 procedure TForm1.N31Click(Sender: TObject);
345 begin
346   form6.show;
347 end;
348 
349 end.

2.Form2.pas

 1 {帮助信息窗口}
 2 unit Unit2;
 3 
 4 interface
 5 
 6 uses
 7   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 8   Dialogs, StdCtrls, ComCtrls, ExtCtrls;
 9 
10 type
11   TForm2 = class(TForm)
12     PageControl1: TPageControl;
13     TabSheet1: TTabSheet;
14     TabSheet2: TTabSheet;
15     TabSheet3: TTabSheet;
16     Label1: TLabel;
17     Label2: TLabel;
18     Label3: TLabel;
19     Label4: TLabel;
20     Label5: TLabel;
21     Label6: TLabel;
22     Label7: TLabel;
23     Button1: TButton;
24     Button2: TButton;
25     Button3: TButton;
26     Label8: TLabel;
27     Label9: TLabel;
28     Label10: TLabel;
29     Label11: TLabel;
30     Image1: TImage;
31     Label12: TLabel;
32     Label13: TLabel;
33     Label14: TLabel;
34     Label15: TLabel;
35     Label16: TLabel;
36     Label17: TLabel;
37     Label18: TLabel;
38     Label19: TLabel;
39     TabSheet4: TTabSheet;
40     Memo1: TMemo;
41     procedure Button1Click(Sender: TObject);
42   private
43     { Private declarations }
44   public
45     { Public declarations }
46   end;
47 
48 var
49   Form2: TForm2;
50 
51 implementation
52 
53 {$R *.dfm}
54 
55 {关闭帮助窗口}
56 procedure TForm2.Button1Click(Sender: TObject);
57 begin
58   Form2.Close;
59 end;
60 
61 end.

3.Form3.pas

 1 {日历窗口}
 2 unit Unit3;
 3 
 4 interface
 5 
 6 uses
 7   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 8   Dialogs, ComCtrls, Grids, Calendar, StdCtrls, ImgList;
 9 
10 type
11   TForm3 = class(TForm)
12     PageControl1: TPageControl;
13     TabSheet1: TTabSheet;
14     TabSheet2: TTabSheet;
15     ImageList1: TImageList;
16     Edit1: TEdit;
17     MonthCalendar1: TMonthCalendar;
18     Calendar1: TCalendar;
19     DateTimePicker1: TDateTimePicker;
20     DateTimePicker2: TDateTimePicker;
21     procedure FormCreate(Sender: TObject);
22     procedure PageControl1Change(Sender: TObject);
23     procedure DateTimePicker1Change(Sender: TObject);
24     procedure Calendar1Change(Sender: TObject);
25     procedure PageControl1Changing(Sender: TObject;
26       var AllowChange: Boolean);
27   private
28      
                       
                    
                     
                      



鲜花




握手




雷人




路过




鸡蛋

该文章已有0人参与评论

请发表评论

全部评论

专题导读

More+

10-27 六六分期app的软件客服如何联系？(六六分期

11-06 可心卡盟:win10系统火狐flash插件崩溃怎么

11-06 亲亲特价:怎么删除回收站图标

11-06 济南大学虚拟社区:鲁大师节能降温的具体办

11-06 xlueops.exe:无线网络安装向导

11-06 女斗合众国:win7系统cf与主机连接不稳定怎

11-06 0xc000022-[cf烟雾头]cf怎么调烟雾头

11-06 qizideyouhuo:应用程序无法正常启动0xc0000

11-06 ipz-185:win7系统vcf文件怎么打开

11-06 傻哥蹦迪:win10系统s4怎么打开usb调试

11-06 八神浩树gtaste:回收站清空了怎么恢复

11-06 妖尾之黑色守护:win10系统电脑没有1440x900

11-06 校园至尊魔王小说:win7系统浏览网页时字体

11-06 女斗合众国:win10系统访问共享文件夹提示请

11-06 tokyo hot n0654:恢复win7系统默认字体一招

11-06 雨酷仙境:设置win7系统转移临时文件夹腾出

11-06 阿穆纳伊之杖:win7系统开始菜单在右边还原

11-06 tunespotting:win10系统火狐flash插件总是

11-06 甘尔葛分析师：计谋网站seo关键词暴涨有什

11-06 蔡贵霖: 计谋网站seo关键词暴涨有什么秘密

11-06 博益网首页:ao3网页版进入不了解决方法

11-06 漏斗子专栏: 网站数据分析小白易懂精华篇

11-06 见证双虹怎么做:win7系统开启telnet命令的

11-06 颾狐蝶蜋:系统资源不足无法完成请求的服务

11-06 国光中学校歌:提交网站到alexa查询详细步骤

11-06 西安有情天:静态网页和动态网页的区别

11-06 红木雅尚斋:外部链接构造对网站的好处

11-06 前官礼遇：防止域名劫持–增强域安全性的10

11-06 密传二转答案: 中文分词算法有哪些

11-06 金泉家园邮编:百度快照劫持的表现及应对方

MATLAB 7.0从入门到精通(修订版)发布时间：2022-07-18

Matlab如何创建带标记的线图发布时间：2022-07-18

剪的笔顺,诠释剪的笔画,认识剪的部首

florent37/ViewAnimator: A fluent Android

2022-08-15

florent37/Shrine-MaterialDesign2: implem

2022-08-17

CVE-2020-36276

2022-09-23

六六分期app的软件客服如何联系？(六六分期

2023-10-27

doraiso/Mastodon

2022-08-18

阅读排行榜

1 六六分期app的软件客服如何联系？(六六分期

六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期

阅读：9048|2023-10-27

2 可心卡盟:win10系统火狐flash插件崩溃怎么

今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知

阅读：6545|2022-11-06

3 亲亲特价:怎么删除回收站图标

今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道

阅读：5442|2022-11-06

4 济南大学虚拟社区:鲁大师节能降温的具体办

今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要

阅读：5919|2022-11-06

5 xlueops.exe:无线网络安装向导

我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多

阅读：5794|2022-11-06

6 女斗合众国:win7系统cf与主机连接不稳定怎

今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不

阅读：6176|2022-11-06

7 0xc000022-[cf烟雾头]cf怎么调烟雾头

电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很

阅读：5753|2022-11-06

8 qizideyouhuo:应用程序无法正常启动0xc0000

我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法

阅读：5224|2022-11-06

9 ipz-185:win7系统vcf文件怎么打开

今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win

阅读：5581|2022-11-06

10 傻哥蹦迪:win10系统s4怎么打开usb调试

今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎

阅读：4944|2022-11-06

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服

地址：深圳市南山区西丽大学城创智工业园

电邮：jeky_zhao#qq.com

移动电话：139-2527-9053

客服电话

电子邮件

Delphi实例之一个较复杂的记事本的实现

一、概述

功能：

运行界面（UI做的很丑诃）：

设计思想：

二、工程结构

（1）.用户界面设计

Form1主窗口

Form2 Form3 Form5 Form6 （Form4后来被我删了但是窗体的Name我没有改，所以Form4是空的，同理下文的unit4）

(2).最后各组件之间的包含关系如下

三、Source Code

1.Form1.pas

2.Form2.pas

3.Form3.pas

请发表评论

全部评论

上一篇：

下一篇：

CVE-2022-22997

una/CSSgram: CSS library for Instagram f

bradtraversy/iweather: Ionic 3 mobile we

joaomh/curso-de-matlab

断牙刷新位置时间（断牙属性及刷新位置介绍