DelphiMemo的记事本功能

Delphi Memo的记事本功能
DelphiMemo的记事本功能
DelphiMemo的记事本功能
这个代码实现了Windows记事本的主要功能。
新建,打开,保存,另存,退出。
文件拖拽打开文件 这主要是判断Memo内容是否修改过
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtDlgs;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    FileOpen: TButton;
    FileSave: TButton;
    FileSaveAs: TButton;
    FileExit: TButton;
    FileNew: TButton;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    procedure FileOpenClick(Sender: TObject);
    procedure FileSaveClick(Sender: TObject);
    procedure FileExitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FileNewClick(Sender: TObject);
    procedure FileSaveAsClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    FFileName: string;
    FUpdating: Boolean;
    FDragOfs: Integer;
    FDragging: Boolean;
    procedure CheckFileSave;
    procedure SetFileName(const FileName: String);
    procedure PerformFileOpen(const AFileName: string);
    procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses ShellAPI;
{$R *.dfm}
 
resourcestring
  sSaveChanges = '是否将未更改保存到 %s?';
  sOverWrite = '%s 已存在。'+#13#10+'要替换它吗?';
  sTitle = '记事本';
  sUntitled = '未命名';
  sColRowInfo = 'Line: %3d   Col: %3d';
  sCommonDlgFileName = '文本文档(*.txt)|*.txt|所有文件(*.*)|*.*';
 
 
procedure TForm1.CheckFileSave;
var
  SaveRespond: Integer;
begin
  if not Memo1.Modified then
    Exit;
  SaveRespond := MessageBox(Handle, PWideChar(Format(sSaveChanges, [FFileName])
    ), PWideChar(sTitle), MB_YESNOCANCEL + MB_ICONINFORMATION);
  case SaveRespond of
    idYes:
      FileSave.click;
    idNo:
      ; { Nothing }
    idCancel:
      Abort;
  end;
end;
 
procedure TForm1.SetFileName(const FileName: String);
begin
  FFileName := FileName;
  Caption := Format('%s - %s', [ExtractFileName(FileName), sTitle]);
end;
 
procedure TForm1.PerformFileOpen(const AFileName: string);
begin
  Memo1.Lines.LoadFromFile(AFileName);
  SetFileName(AFileName);
  Memo1.SetFocus;
  Memo1.Modified := False;
end;
 
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  CFileName: array [0 .. MAX_PATH] of Char;
begin
  try
    if DragQueryFile(Msg.Drop, 0, CFileName, MAX_PATH) > 0 then
    begin
      CheckFileSave;
      PerformFileOpen(CFileName);
      Msg.Result := 0;
    end;
  finally
    DragFinish(Msg.Drop);
  end;
end;
 
procedure TForm1.FileNewClick(Sender: TObject);
begin
  CheckFileSave;
  SetFileName(sUntitled);
 
  Memo1.Lines.Clear;
  Memo1.Modified := False;
end;
 
procedure TForm1.FileOpenClick(Sender: TObject);
begin
  CheckFileSave;
 
  with TOpenDialog.Create(nil) do
  begin
    Filter := sCommonDlgFileName;
    FileName:='*.txt';
    if Execute then
    begin
      PerformFileOpen(FileName);
      Memo1.ReadOnly := ofReadOnly in Options;
    end;
  end;
end;
 
procedure TForm1.FileSaveAsClick(Sender: TObject);
begin
  with TSaveDialog.Create(nil) do
  begin
    Filter := sCommonDlgFileName;
    FileName:='*.txt';
    if Execute then
    begin
      if FileExists(FileName) then
        if MessageBox(Handle, PWideChar(Format(sOverWrite, [FFileName])),
          PWideChar(sTitle), MB_YESNOCANCEL + MB_ICONINFORMATION) <> idYes then
          Exit;
      Memo1.Lines.SaveToFile(FileName);
      SetFileName(FileName);
      Memo1.Modified := False;
    end;
  end;
end;
 
procedure TForm1.FileSaveClick(Sender: TObject);
begin
  if FFileName = sUntitled then
    FileSaveAs.click
  else
  begin
    Memo1.Lines.SaveToFile(FFileName);
    Memo1.Modified := False;
  end;
end;
 
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  CheckFileSave;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetFileName(sUntitled);
  DragAcceptFiles(Handle, True);
end;
 
procedure TForm1.FileExitClick(Sender: TObject);
begin
  Close;
end;
 
end.
更多相关文章
  • 第一步:PyQt4 Designer设计程序界面 该部分设计类同Visval Studio内的设计,改下各部件的objectName!设计完保存为editor.ui 第二步:将.ui文件编译成.py文件cmd.execd 到改文件所在的文件夹然后输入pyuic4 editor.ui > edi ...
  • Windows764位鼠标右键新建记事本功能手动恢复方法
    在网上看了好多用注册表恢复的方法都在我电脑不管用,只有手动找找注册表,然后更改值,就能恢复过来.下图是没有恢复的方法如下:打开注册表 HKEY_CLASSES_ROOT\txtfile, 右边(default)值改成txtfile,之前我的被改成其他的了.检查下边ShellNew 右边的NullFi ...
  • 2015.10.7IDE硬盘:hda1,hda2,....scsi/sas/sata碍盘:sda1,sda2,....linux 分区 BOOT 一般分200M左右即可,标记为主分区 force to be a primary partitionSWAP 内存小于8G ,建议1.5倍     内存大 ...
  • 重命名域的能力使您能够根据组织变化的需要,灵活地对林结构和名称空间进行重要更改.重命名域可适用于获取.合并.名称更改或重新组织.域的重命名允许用户:更改林中任何域(包括林根域)的域名系统 (DNS) 和 NetBIOS 名称.重新构建林中任何域(除了林根域)的位置.使用域的重命名,还可以重新构建林中 ...
  • 用腾讯的功能蛮多的.. 无意之中又发现了问题,,, 这次是QQ邮箱记事本功能.. ---------------------------------------------QQ邮箱记事本上传照片 比如我从本地上传一个1.jpg的照片 完后删除本地照片 我又从网上下一个图片到本地 命名为1.jpg 那 ...
  • 项目个人进度01
    今天是项目的第一天: 一:第一天总结 今天做了什么 明天做了什么 遇到了什么问题 决解方法 记事本功能的主界面 完成主界面和添加下一级界面 菜单窗口代码无从下手,以及界面控制视图有点混乱 运用了计划布局自动生成代码 二:个人任务表: 三:个人燃尽表
  • 这两篇博文分别讲的很好: ListView: http://www.cnblogs.com/noTice520/archive/2011/12/05/2276379.html GridViw: http://blog.csdn.net/hellogv/article/details/4567095 ...
  • Android12.0第12章Intent及其过滤器—本章示例主界面
    分类:C#.Android.VS2015: 创建日期:2016-02-23 一.简介 这一章我们主要学习Intent的基本用法,并通过例子演示如下功能: 如何启动另一个界面: 如何获取另一个界面的返回值: 如何利用Intent读取图库中的图片: 如何利用Intent读取和更新通讯录: 如何利用Int ...
一周排行