记事本

记事本

 

步骤一：向Form1中添加Memo,  MainMenu组件，dialogs组---OpenDialog,SaveDialog, FontDialog(可选) 组件，Name就默认吧

步骤二：双击MainMenu1，设置菜单名字(具体名字只要能表达其功能，怎么起都可以) 。

例如：主菜单分别设置为File(Caption---&File),Edit(Caption---&Edit),Format(可选) (Caption---F&ormat),Help(Caption---&Help).

File的子菜单分别设置为

New(Caption---&New),Open(Caption---&Open),Save(Caption---&Save),Saveas(Caption---Save &as),Exit(Caption---&Edit)

Edit的子菜单分别设置为

Cut(Caption---&Cut),Copy(Caption---C&opy),Paste(Caption---&Paste)Clear(Caption---C&lear),Select All(Caption---&Select All)

Format (可选)的子菜单分别设置为

Font(Caption---Fo&nt)

Help的子菜单分别设置为

About(Caption---&About)

步骤三：

1.      在implementation下面一行定义变量s：

var s:string;

2．分别完善MainMenu1中每个子菜单的功能：

   New:

   Memo1.clear;

   Open:

   if (Opendialog1.Execute) then

begin

Memo1.lines.loadFromFile(opendialog1.FileName);

s:=opendialog1.FileName;

end;

Save:

if(s='') then

begin

 if (savedialog1.execute) then

 begin

 Memo1.Lines.Savetofile(savedialog1.FileName);

 s:=savedialog1.FileName;

 end;

end

else memo1.lines.SaveToFile(s);

Saveas:

if (savedialog1.Execute) then

begin

memo1.lines.SaveToFile(savedialog1.filename);

s:=savedialog1.filename;

end;

Exit:

close;

Cut：

memo1.CutToClipboard;

Copy：

memo1.CopyToClipboard;

Paste：

memo1.PasteFromClipboard;

Clear：

memo1.Clear;

Select All：  

memo1.SelectAll;

Font:

   fontdialog1.Execute;

   memo1.Font:=fontdialog1.Font;