用delphi编写一个和windows自带的记事本一样的记事本，如何实现？

2012-08-01 01:13:01 320 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

beij_2012 墨衍会员 · AI 创作全网分发关注 + 加入社区

用DELPHI编写一个服务进程现在的学生越来越聪明，一年前就发现他们不知从哪里学来退出教学系统的方法了，一节课下来，最终发现大半部分人都没听课，上自己的网，听自己的音乐。从一个学生口中得知他们的方法，原来是如此简单（具体方法不说了，免得有人有样学样）。不过办法总是有的，计算机关闭前会先关闭用户进程，再关闭系统进程。呵呵，哪就写服务进程来监控教学系统的学生端吧，如果发现不存在就自动运行它。下面就是创建这个服务进程的过程，用DELPHI写的。1、打开DELPHI--新建--Service Ap 阅读详情

本人是初学者，已经将控件添加进去了，但是如何去实现事件，没有头绪，求高手指点，比如如何实现新建和保存这两个功能？最好能说清楚思路。谢谢各位大神了。

...全文

电赛备赛笔记：用STM32驱动AD9959信号发生器模块，从接线到出波保姆级教程本文详细介绍了如何使用STM32驱动AD9959信号发生器模块，从硬件接线到软件调试的全流程。AD9959作为高性能DDS芯片，适用于电子设计竞赛中的信号生成需求。文章包含硬件连接指南、寄存器配置解析、多通道控制技巧以及常见问题解决方案，帮助参赛者快速掌握AD9959的应用。阅读详情

beij_2012

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

wstart_lion 2012-08-03

打赏
举报

首先把设计做好：打开，新建，退出这些都会涉及到保存的判断与提示，如果涉及没做好可能会导致代码很乱。
做了一个简单的你可以看一下
unit txtbook;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,Dialogs, Menus, StdCtrls, ExtDlgs,ComCtrls;

type
TForm3 = class(TForm)
memDesc: TMemo;
mmFile: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
OpenDialogChoice: TOpenDialog;
SaveDialogDesc: TSaveDialog;
N6: TMenuItem;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
N12: TMenuItem;
N13: TMenuItem;
N14: TMenuItem;
N15: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure FrmClose(Sender: TObject; var Action: TCloseAction);
procedure MemDescChange(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N4Click(Sender: TObject);
procedure N5Click(Sender: TObject);
procedure N6Click(Sender: TObject);
private
{ Private declarations }
public
procedure OutSave();
end;

var
Form3: TForm3;
FileName:string;
TxtFileName:string;
NewFile:Boolean;
MemDescDif:Boolean;
NullOperateAll:Boolean;
StrType:string;
type
OperateCheck=(OpNull,OpCreat,OpOpen,OpSave,OpSaveAs);
var
MyOperate:OperateCheck;

implementation

{$R *.dfm}
procedure TForm3.OutSave;
begin
if MemDescDif then
begin
StrType:='文件 '+Form3.Caption+' 的文字以改变，是否保存？';
case MyOperate of
OpCreat:
begin
ShowMessage(StrType);
SaveDialogDesc.FileName:=Form3.Caption;
if SaveDialogDesc.Execute then
begin
FileName:=SaveDialogDesc.FileName;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end;
OpNull:
begin
if NullOperateAll then
begin
ShowMessage(StrType);
SaveDialogDesc.FileName:=Form3.Caption;
if SaveDialogDesc.Execute then
begin
FileName:=SaveDialogDesc.FileName;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end;
end;
OpOpen:
begin
ShowMessage(StrType);
SaveDialogDesc.FileName:=Form3.Caption;
FileName:=SaveDialogDesc.FileName;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end;
end
end;

procedure TForm3.FormCreate(Sender: TObject);
//创建窗体过程
begin
Form3.Caption:='无标题.txt';
memDesc.Text:='';
MemDescDif:=False;
NullOperateAll:=False;
end;

procedure TForm3.FrmClose(Sender: TObject; var Action: TCloseAction);
begin
OutSave();
Form3.Free;
end;

procedure TForm3.MemDescChange(Sender: TObject);
//memdesc内容变化
begin
MemDescDif:=True;
NullOperateAll:=True;
end;

procedure TForm3.N2Click(Sender: TObject);
//新建
begin
OutSave();
NewFile:=True;
MyOperate:=OpCreat;
memDesc.Text:='';
MemDescDif:=False;
Form3.Caption:='无标题.txt';
end;

procedure TForm3.N3Click(Sender: TObject);
//打开
begin
OutSave();
if OpenDialogChoice.Execute then
begin
MyOperate:=OpOpen;
NewFile:=False;
FileName:=OpenDialogChoice.FileName;
memDesc.Lines.LoadFromFile(FileName);
Form3.Caption:=ExtractFileName(FileName);
Application.Title:=ExtractFileName(FileName);
MemDescDif:=False;
end;

end;

procedure TForm3.N4Click(Sender: TObject);
//保存
begin
if MyOperate=OpCreat then
begin
SaveDialogDesc.FileName:=Form3.Caption;
if SaveDialogDesc.Execute then
begin
MyOperate:=OpSave;
FileName:=SaveDialogDesc.FileName;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end
else begin
if MyOperate=OpNull then
begin
SaveDialogDesc.FileName:=Form3.Caption;
if SaveDialogDesc.Execute then
begin
MyOperate:=OpSave;
FileName:=SaveDialogDesc.FileName;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end
else begin
MyOperate:=OpSave;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end;
end;

procedure TForm3.N5Click(Sender: TObject);
//另存为
begin
MyOperate:=OpSaveAs;
SaveDialogDesc.FileName:=Form3.Caption;
if SaveDialogDesc.Execute then
begin
FileName:=SaveDialogDesc.FileName;
memDesc.Lines.SaveToFile(FileName);
MemDescDif:=False;
end;
end;

procedure TForm3.N6Click(Sender: TObject);
begin
OutSave();
Form3.Free;
end;
end.
有什么问题可以随时找我呵呵顺便求粉一个哈

kaikai_kk 2012-08-01

打赏
举报

用Memo控件 + MainMenu + 一些Dialog控件

就是这些控件的基本应用; 对比记事本，看它有那些功能，自己摸索实现

LastAvengers 2012-08-01

打赏
举报

其实网上例子很多的http://www.delphifans.com/SoftView/SoftView_3117.html

LastAvengers 2012-08-01

打赏
举报

Windows 自带的新建只是将Memo清空罢了 eg: Memo1.lines.clear;//在当前没有打开文件的时候
保存便是调用SaveDialog 将Memo已有的内容写到磁盘
eg: if SaveDialog1.Excute then Memo1.lines.SaveToFile(SaveDialog1.FileName);
大概就这样应该不会打错

JPEXE 2012-08-01

打赏
举报

1.学习TMemo控件的使用
2.学习Delphi（或直接Win32API）的文件读写操作
以上具体请Google

用delphi编写一个和windows自带的记事本一样的记事本，如何实现？

相关推荐