Delphi中用memo写的记事本程序Word文件下载.docx

Delphi中用memo写的记事本程序Word文件下载.docx

《Delphi中用memo写的记事本程序Word文件下载.docx》由会员分享，可在线阅读，更多相关《Delphi中用memo写的记事本程序Word文件下载.docx（9页珍藏版）》请在冰豆网上搜索。

文件（新建，保存，另存为，打开，打印，退出），编辑（剪切，复制，黏贴，删除，查找，替换），更改（字体，背景），关于（是对此程序的制造者说明）。

工具栏：

保存，新建，打开，打印，字体，粗体，斜体，下划线。

此工具栏是让用户更方便地使用按键。

快捷菜单：

复制，剪切，黏贴。

可以自行设计其他功能，完善文本编辑器。

1、代码实现

unitUnit1;

interface

uses

Windows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,

Dialogs,Menus,StdCtrls,ComCtrls,ImgList,ToolWin,ExtDlgs;

type

TForm1=class（TForm）

MainMenu1:

TMainMenu;

E1:

TMenuItem;

O1:

V1:

N3:

C1:

P2:

F2:

R1:

W1:

N4:

N5:

N1:

N2:

O2:

S1:

A1:

U1:

P1:

X1:

N6:

N7:

PopupMenu1:

TPopupMenu;

Edit1:

TEdit;

ToolBar1:

TToolBar;

ImageList1:

TImageList;

ToolButton1:

TToolButton;

ToolButton2:

ToolButton3:

ToolButton4:

ToolButton5:

ToolButton6:

ToolButton7:

ToolButton8:

ToolButton9:

ToolButton10:

ToolButton11:

N8:

N9:

N10:

N11:

N12:

N13:

N14:

N15:

N16:

N17:

N18:

N19:

N20:

FontDialog1:

TFontDialog;

ColorDialog1:

TColorDialog;

OpenDialog1:

TOpenDialog;

SaveDialog1:

TSaveDialog;

PrintDialog1:

TPrintDialog;

FindDialog1:

TFindDialog;

ReplaceDialog1:

TReplaceDialog;

PageSetupDialog1:

TPageSetupDialog;

Memo1:

TMemo;

D1:

L1:

w2:

procedureToolButton8Click（Sender:

TObject）;

procedureToolButton9Click（Sender:

procedureToolButton10Click（Sender:

procedureN11Click（Sender:

procedureN12Click（Sender:

procedureN15Click（Sender:

procedureN16Click（Sender:

procedureN17Click（Sender:

procedureN18Click（Sender:

procedureN19Click（Sender:

procedureN3Click（Sender:

procedureC1Click（Sender:

procedureP2Click（Sender:

procedureMemo1MouseUp（Sender:

TObject;

Button:

TMouseButton;

Shift:

TShiftState;

X,Y:

Integer）;

procedureN8Click（Sender:

procedureN9Click（Sender:

procedureN10Click（Sender:

procedureToolButton11Click（Sender:

procedureToolButton3Click（Sender:

procedureToolButton5Click（Sender:

procedureP1Click（Sender:

procedureA1Click（Sender:

procedureN20Click（Sender:

procedureX1Click（Sender:

procedureU1Click（Sender:

procedureR1Click（Sender:

procedureF2Click（Sender:

procedureToolButton2Click（Sender:

procedureToolButton1Click（Sender:

procedureO2Click（Sender:

procedureN2Click（Sender:

procedureS1Click（Sender:

procedureN14Click（Sender:

procedureN13Click（Sender:

procedureN5Click（Sender:

procedureD1Click（Sender:

procedureL1Click（Sender:

fm}

procedure（Sender:

TSaveD