制作简单的文档编辑器
《制作简单的文档编辑器》由会员分享,可在线阅读,更多相关《制作简单的文档编辑器(6页珍藏版)》请在装配图网上搜索。
1、简单的计时器制作DELPHI的Timer组件的使用制作简单的文档编辑器DELPHI中对话框的示例第一,打开delphi编辑器后,进行界面的布置,需要的组件有:fontdialog: colordialog: savedialog: opendialog: memo: button:第二,编写代码,代码如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) M
2、emo1: TMemo; Button1: TButton; Button2: TButton; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; Button3: TButton; Button4: TButton; FontDialog1: TFontDialog; ColorDialog1: TColorDialog; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Send
3、er: TObject); procedure Button4Click(Sender: TObject); private Private declarations public Public declarations end;var Form1: TForm1;implementation$R *.dfmprocedure TForm1.Button1Click(Sender: TObject);begin if opendialog1.Execute then memo1.Lines:=opendialog1.Files;end;procedure TForm1.Button2Click
4、(Sender: TObject);beginif savedialog1.Execute thenmemo1.Lines.SaveToFile(savedialog1.filename);end;procedure TForm1.Button3Click(Sender: TObject);begin if fontdialog1.Execute then memo1.Font:=fontdialog1.font;end;procedure TForm1.Button4Click(Sender: TObject);begin if colordialog1.Execute then memo1.color:=colordialog1.color;end;end.编好后的界面如下:第三,调试程序并运行,运行结果如下:第四,完成调试,保存文件。第 6 页 共 6 页
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 沪教牛津英语六年级上册Module3单元全套ppt课件
- 沪科版《声音的产生与传播》ppt课件
- 店铺数据分析课件
- 美国研究文献资源指南.课件
- 绿色夏天清新汇报课件
- 美食咖啡下午茶餐饮课件
- 微生物学实验-1-口腔微生物的染色观察与显微镜油镜的使用;细菌的革兰氏染色教学课件
- 沪教版(上海)七年级数学第二学期ppt课件152(2)直角坐标平面内点的运动
- 店铺报告模本教学课件
- 民兵组织建设课件
- 沪教版(上海)七年级数学第二学期ppt课件152(1)直角坐标平面内点的运动
- 沪教版牛津英语小学二年级上学期期末复习句型课件
- 沪教版地理七年级上册42黄河课件
- 沪教版五年级数学下册《正方体、长方体的表面积2》ppt课件
- 微生物学基础知识培训课件