1、文件（新建，保存，另存为，打开，打印，退出），编辑（剪切，复制，黏贴，删除，查找，替换），更改（字体，背景），关于（是对此程序的制造者说明）。工具栏：保存，新建，打开，打印，字体，粗体，斜体，下划线。此工具栏是让用户更方便地使用按键。快捷菜单：复制，剪切，黏贴。可以自行设计其他功能，完善文本编辑器。1、代码实现unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, ImgList,
2、 ToolWin, ExtDlgs;type TForm1 = class（TForm） MainMenu1: TMainMenu; E1: TMenuItem; O1: V1: N3: C1: P2: F2: R1: W1: N4: N5: N1: N2: O2: S1: A1: U1: P1: X1: N6: N7: PopupMenu1: TPopupMenu; Edit1: TEdit; ToolBar1: TToolBar; ImageList1: TImageList; ToolButton1: TToolButton; ToolButton2: ToolButton3: Tool
3、Button4: ToolButton5: ToolButton6: ToolButton7: ToolButton8: ToolButton9: ToolButton10: ToolButton11: N8: N9: N10: N11: N12: N13: N14: N15: N16: N17: N18: N19: N20: FontDialog1: TFontDialog; ColorDialog1: TColorDialog; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; PrintDialog1: TPrintDialog; F
4、indDialog1: TFindDialog; ReplaceDialog1: TReplaceDialog; PageSetupDialog1: TPageSetupDialog; Memo1: TMemo; D1: L1: w2: procedure ToolButton8Click（Sender: TObject）; procedure ToolButton9Click（Sender: procedure ToolButton10Click（Sender: procedure N11Click（Sender: procedure N12Click（Sender: procedure N
5、15Click（Sender: procedure N16Click（Sender: procedure N17Click（Sender: procedure N18Click（Sender: procedure N19Click（Sender: procedure N3Click（Sender: procedure C1Click（Sender: procedure P2Click（Sender: procedure Memo1MouseUp（Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer）;
6、procedure N8Click（Sender: procedure N9Click（Sender: procedure N10Click（Sender: procedure ToolButton11Click（Sender: procedure ToolButton3Click（Sender: procedure ToolButton5Click（Sender: procedure P1Click（Sender: procedure A1Click（Sender: procedure N20Click（Sender: procedure X1Click（Sender: procedure
7、U1Click（Sender: procedure R1Click（Sender: procedure F2Click（Sender: procedure ToolButton2Click（Sender: procedure ToolButton1Click（Sender: procedure O2Click（Sender: procedure N2Click（Sender: procedure S1Click（Sender: procedure N14Click（Sender: procedure N13Click（Sender: procedure N5Click（Sender: procedure D1Click（Sender: procedure L1Click（Sender: fm procedure （Sender: TSaveD
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1
升级会员 