unit1.pas

掌握常用记事本系统的设计方法及常用函数的调用

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, StdCtrls, ImgList, Grids, Calendar, OleServer, WordXP,
  ExtCtrls, ActnList, StdActns;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    N33: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    FontDialog1: TFontDialog;
    FindDialog1: TFindDialog;
    ReplaceDialog1: TReplaceDialog;
    Memo1: TMemo;
    ImageList1: TImageList;
    PopupMenu1: TPopupMenu;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    N44: TMenuItem;
    procedure N28Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N16Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N36Click(Sender: TObject);
    procedure N37Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N41Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N32Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm1.N28Click(Sender: TObject);
begin
//fontdialog1.Font:=memo1.Font;
//if
fontdialog1.Execute; //then
memo1.Font:=fontdialog1.Font;
memo1.SetFocus;
end;

procedure TForm1.N19Click(Sender: TObject);
begin
 finddialog1.Execute;
end;

procedure TForm1.N10Click(Sender: TObject);
begin
form1.Close;
end;

procedure TForm1.N21Click(Sender: TObject);
begin
replacedialog1.Execute;
end;

procedure TForm1.N14Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;

procedure TForm1.N15Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;

procedure TForm1.N16Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

procedure TForm1.N17Click(Sender: TObject);
begin
memo1.ClearSelection;
end;

procedure TForm1.N24Click(Sender: TObject);
begin
memo1.SelectAll;
popupmenu1.Items[7].Checked :=true;
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 if  opendialog1.Execute then
 begin
   memo1.Lines.Clear;
   Caption:=Extractfilename(opendialog1.FileName);
   memo1.Lines.LoadFromFile(opendialog1.FileName);
 end;  
end;

procedure TForm1.N27Click(Sender: TObject);
begin
if memo1.ScrollBars=ssBoth then
   memo1.ScrollBars:=ssVertical
else
   memo1.ScrollBars:=ssBoth;
end;

procedure TForm1.N12Click(Sender: TObject);
begin
memo1.Undo;
end;

procedure TForm1.N34Click(Sender: TObject);
begin
memo1.Undo;
end;

procedure TForm1.N36Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;

procedure TForm1.N37Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;

procedure TForm1.N38Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;

procedure TForm1.N39Click(Sender: TObject);
begin
memo1.ClearSelection;
end;

procedure TForm1.N41Click(Sender: TObject);
begin
memo1.SelectAll;
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if memo1.Modified then
  begin
 showmessage('文件 无标题 的文字已经改变，想保存文件吗？');
   memo1.Lines.Clear;
   memo1.Modified:=false;
   form1.Caption:='无标题-记事本';
  end;
end;

procedure TForm1.N32Click(Sender: TObject);
begin
aboutbox.show;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if savedialog1.Execute then
memo1.Lines.SaveToFile(savedialog1.FileName);
end;
end.