制作简单的文档编辑器

简单的计时器制作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) Memo1: 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(Sender: 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(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 页