记事本

记事本

 

步骤一:向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;

阅读更多
文章标签: string file
个人分类: delphi
想对作者说点什么? 我来说一句

php简易的记事本程序

2009年10月10日 43KB 下载

记事本(Java实现)

2017年08月19日 2KB 下载

没有更多推荐了,返回首页

不良信息举报

记事本

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭