用delphi編寫的記事本代碼.

1、un it Un itl; in terface uses Win dows. Messages, SysUtils, Varia nts. Classes, Graphics, Co ntrols, Forms, Dialogs, Men us, StdCtrls, ComCtrls, ExtCtrls, ToolWi n, ImgList; type TForm1 = class(TForm MainMenu1: TMainMenu; RichEdit1: TRichEdit; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; N1:

2、TMenultem; N2: TMenultem; N3: TMenuItem; FontDialog1: TFontDialog; N4: TMenultem; N5: TMenultem; N6:TMe nultem; N7: TMe nultem; N8: TMe nultem; N9: TMe nultem; N10: TMe nultem; N11: TMe nultem; N12: TMe nultem; N13: TMe nultem; N14: TMe nultem; N15: TMe nultem; N16: TMe nultem; N17: TMe nultem; N18:

3、 TMe nultem; N19: TMe nultem; N20:TMenultem; PopupMenu1: TPopupMenu; FindDialog1: TFindDialog; N21: TMenultem; PrintDialog1: TPrintDialog; N22: TMenultem; N23: TMenultem; N24: TMenultem; N25: TMe nultem; N26: TMe nultem; N27: TMe nultem; N28: TMe nultem; N31: TMe nultem; N32: TMenultem; S1: TMenulte

4、m; Timer1: TTimer; StatusBar2: TStatusBar; ToolBar1: TToolBar; ToolButto n1: TToolButt on; ToolButto n2: TToolButt on; ToolButto n3: TToolButt on; ToolButto n4: TToolButto n; ToolButto n5: TToolButt on; ToolButto n6: TToolButt on; ToolButto n7: TToolButto n; ToolButto n8: TToolButt on; ToolButto n9:

5、 TToolButto n; ToolButto n10: TToolButto n; ToolButt on 11: TToolButt on; ToolButto n12: TToolButt on; ToolButt on13: TToolButt on; lmageList1: TlmageList; procedure N2Click(Se nder: TObject; procedure N3Click(Se nder: TObject; procedure N7Click(Se nder: TObject; procedure N8Click(Se nder: TObject;

6、procedure N9Click(Se nder: TObject; procedure N14Click(Se nder: TObject; procedure N21Click(Se nder: TObject; procedure N16Click(Se nder: TObject; procedure N17Click(Se nder: TObject; procedure N18Click(Se nder: TObject; procedure N12Click(Se nder: TObject; procedure N20Click(Se nder: TObject; proce

7、dure N6Click(Se nder: TObject; procedure S1Click(Se nder: TObject; procedureFindDialog1Find(Sender: TObject; procedure Timer1Timer(Sender: TObject; procedure N24Click(Se nder: TObject; procedure N25Click(Se nder: TObject; procedure N26Click(Se nder: TObject; procedure N27Click(Se nder: TObject; proc

8、edure N28Click(Se nder: TObject; procedure RichEdit1MouseMove(Se nder: TObject; Shift:TShiftState; X, Y: In teger; procedure RichEditIKeyDow n(Se nder: TObject; var Key: Word; Shift: TShiftState; procedure RichEdit1E nter(Se nder: TObject; private Private declarati ons public Public declarati ons en

9、d; var Form1: TForm1; file name: stri ng; temp:integer; implementation $R *.dfm procedure TForm1.N2Click(Sender: TObject; beg in if ope ndialog1.Execute the n begi n Form1.Capti on:=ExtractFileName(Ope nDialog1.FileName;richedit1 .lines.LoadFromFile(opendialog1.FileName; end end; procedure TForm1.N3

10、Click(Se nder: TObject; beg in if file name='' the n begi n if savedialog1.Execute the n beg in richedit1 .Lin es.SaveToFile(savedialog1.FileName;filename:=savedialog1.filename; end end elserichedit1 .Lines.SaveToFile(savedialog1.FileName; end; procedureTForm1.N7Click(Se nder: TObject; begi

11、n fon tdialog1.Execute; richedit1.SelAttributes.Assign(fontdialog1.Font; end; procedure TForm1.N8Click(Sender: TObject; begin if RichEdit1.Modified then begi n temp:=MessageDlg('內容發(fā)生改變， 是否要保存',mtwarning,mbyesnocancel,0; if temp=6 then begin Form1.N3Click(Sender; RichEdit1.Lines.Clear; end; i

12、f temp=7 then RichEdit1.Lines.Clear; end elseRichEdit1.Lines.Clear; end; procedure TForm1.N9Click(Sender: TObject; begin with savedialog1 do if execute the n beg in richedit1.L in es.SaveToFile (file name;ope ndialog1.FileName := file name; end; end; procedure TForm1.N14Click(Se nder: TObject; begin

13、 richedit1.Perform(EM_UNDO,O,O; end; procedureTForm1.N21Click(Sender: TObject; begin richedit1.SelectAll; end; procedure TForm1.N16Click(Se nder: TObject; beg in richedit1.cuttoclipboard; end; procedure TForm1.N17Click(Se nder: TObject; beg in richedit1.copyToClipboard; end; procedure TForm1.N18Clic

14、k(Se nder: TObject; beg in richedit1.PasteFromClipboard; end; procedure TForm1.N12Click(Se nder: TObject; begin Prin tDialog1.Execute; end; procedure TForm1.N20Click(Se nder: TObject; beg in fin ddialog1.Execute; end; procedure TForm1.N6Click(Se nder: TObject; begin if N6.Checked then begin N6.Check

15、ed:=false; RichEdit1.WordWrap:=False; end else beg in n 6.Checked:=True;RichEdit1.WordWrap:=True; end end; procedure TForm1.S1Click(Se nder: TObject; beg in if s1.Checked the n beg in s1.Checked:=false; statusbar2.visible:=False; end else beg in s1.Checked:=True; statusbar2.visible:=True; end end; p

16、rocedureTForm1.FindDialog1Find(Sender: TObject; Var findat:longint; startpos,toend:integer; beg in with richedit1 do beg in if selle ngth<>0 the n startpos:=selstart+selle ngth else startpos:=0; toe nd:=le ngth(text-startpos;fin dat:=fi ndtext( Fin dDialog1. Fin dText,startpos,toe nd,stMatchCa

17、se; if fin dat<>-1 the n beg in setfocus ; SelStart:=fi ndat; SelLe ngth:=Le ngth( Fin dDialog1. Fin dText end; end; end; procedure TForm1.Timer1Timer(Se nder: TObject; beg instatusbar2.Pa nels1.Text:=timetostr(time(; end; procedure TForm1.N24Click(Se nder: TObject; begin richedit1.Perform(EM_

18、UNDO,O,O; end; procedureTForm1.N25Click(Se nder: TObject; beg in richedit1.cuttoclipboard; end; procedure TForm1.N26Click(Se nder: TObject; beg in richedit1.copyToClipboard; end; procedure TForm1.N27Click(Se nder: TObject; begin richedit1.PasteFromClipboard; end;procedure TForm1.N28Click(Sender: TObject; begin richedit1.SelectAII; end; procedure TForm1.RichEdit1MouseMove(Se nder: TObject; Shift: TShiftState; X, Y: I