menudemo.pas

菜单演示 菜单演示 菜单演示 菜单演示

unit MenuDemo;

interface

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

type
  TMainForm = class(TForm)
    MainMenu: TMainMenu;
    PopupMenu: TPopupMenu;
    M1: TMenuItem;
    m11: TMenuItem;
    m12: TMenuItem;
    M13: TMenuItem;
    M14: TMenuItem;
    m15: TMenuItem;
    m16: TMenuItem;
    m17: TMenuItem;
    m18: TMenuItem;
    m19: TMenuItem;
    m2: TMenuItem;
    m21: TMenuItem;
    m22: TMenuItem;
    m23: TMenuItem;
    m24: TMenuItem;
    m25: TMenuItem;
    m26: TMenuItem;
    m27: TMenuItem;
    m28: TMenuItem;
    m29: TMenuItem;
    m210: TMenuItem;
    m211: TMenuItem;
    m212: TMenuItem;
    m213: TMenuItem;
    m214: TMenuItem;
    m3: TMenuItem;
    m31: TMenuItem;
    m32: TMenuItem;
    m4: TMenuItem;
    m41: TMenuItem;
    m42: TMenuItem;
    m43: TMenuItem;
    p1: TMenuItem;
    p2: TMenuItem;
    p3: TMenuItem;
    p4: TMenuItem;
    p5: TMenuItem;
    p6: TMenuItem;
    p7: TMenuItem;
    p8: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure m11Click(Sender: TObject);
    procedure m12Click(Sender: TObject);
    procedure M13Click(Sender: TObject);
    procedure M14Click(Sender: TObject);
    procedure m16Click(Sender: TObject);
    procedure m17Click(Sender: TObject);
    procedure m19Click(Sender: TObject);
    procedure m21Click(Sender: TObject);
    procedure m22Click(Sender: TObject);
    procedure m23Click(Sender: TObject);
    procedure m24Click(Sender: TObject);
    procedure m25Click(Sender: TObject);
    procedure m26Click(Sender: TObject);
    procedure m27Click(Sender: TObject);
    procedure m28Click(Sender: TObject);
    procedure m29Click(Sender: TObject);
    procedure m210Click(Sender: TObject);
    procedure m211Click(Sender: TObject);
    procedure m212Click(Sender: TObject);
    procedure m213Click(Sender: TObject);
    procedure m214Click(Sender: TObject);
    procedure m41Click(Sender: TObject);
    procedure m31Click(Sender: TObject);
    procedure m32Click(Sender: TObject);
    procedure m43Click(Sender: TObject);
    procedure p1Click(Sender: TObject);
    procedure p3Click(Sender: TObject);
    procedure p4Click(Sender: TObject);
    procedure p5Click(Sender: TObject);
    procedure p6Click(Sender: TObject);
    procedure p8Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.FormCreate(Sender: TObject);
begin
  MainForm.Caption:='菜单演示';
  m1.Caption:='文件(&F)';       //设置文件菜单项及各子菜单项
  M11.Caption:='新建(&N)';
  m11.ShortCut := ShortCut(Word('N'), [ssCtrl]);
  m12.Caption:='打开(&O)...';
  m12.ShortCut := ShortCut(Word('O'), [ssCtrl]);
  m13.Caption:='保存(&S)';
  m13.ShortCut := ShortCut(Word('S'), [ssCtrl]);
   //设置快捷键为Ctrl+S
  m14.Caption:='另存为(&A)...';
  m15.Caption:='-';
  m16.Caption:='页面设置(&U)...';
  m17.Caption:='打印(&P)...';
  m17.ShortCut := ShortCut(Word('P'), [ssCtrl]);
  m18.Caption:='-';
  m19.Caption:='退出(&X)';
  m2.Caption:='编辑(&E)';
  m21.Caption:='撤销(&U)';
  m21.ShortCut := ShortCut(Word('Z'), [ssCtrl]);
  m22.Caption:='-';
  m23.Caption:='剪切(&T)';
  m23.ShortCut := ShortCut(Word('X'), [ssCtrl]);
  m24.Caption:='复制(&C)';
  m24.ShortCut := ShortCut(Word('C'), [ssCtrl]);
  m25.Caption:='粘贴(&P)';
  m25.ShortCut := ShortCut(Word('V'), [ssCtrl]);
  m26.Caption:='删除(&V)';
  m26.ShortCut := ShortCut(Word(VK_DELETE),[ssLeft]);
  //这里VK_DELETE为删除键的虚拟键码。
  m27.Caption:='-';
  m28.Caption:='查找(&F)';
  m28.ShortCut := ShortCut(Word('F'),[ssCtrl]);
  m29.Caption:='查找下一个(&N)';
  m29.ShortCut := ShortCut(Word(VK_F3),[ssLeft]);
  m210.Caption:='替换(&R)';
  m210.ShortCut := ShortCut(Word('H'),[ssCtrl]);
  m211.Caption:='转到(&G)';
  m211.ShortCut := ShortCut(Word('G'),[ssCtrl]);
  m212.Caption:='-';
  m212.ShortCut := ShortCut(Word('A'),[ssCtrl]);
  m213.Caption:='全选(&A)';
  m213.ShortCut := ShortCut(Word(VK_F5),[ssLeft]);
  m214.Caption:='日期/时间(&D)';
  m3.Caption:='格式(&O)';
  m31.Caption:='自动换行(&W)';
  m32.Caption:='字体(&F)';
  m4.Caption:='帮助(&H)';
  m41.Caption:='帮助主题(&H)';
  m42.Caption:='-';
  m43.Caption:='关于记事本(&A)';
  p1.Caption:='撤销(&U)';
  p2.Caption:='-';
  p3.Caption:='剪切(&T)';
  p4.Caption:='复制(&C)';
  p5.Caption:='粘贴(&P)';
  p6.Caption:='删除(&D)';
  p7.Caption:='-';
  p8.Caption:='全选(&A)';
end;

procedure TMainForm.m11Click(Sender: TObject);
begin
  showmessage('你选择了：'+m11.Caption);
end;

procedure TMainForm.m12Click(Sender: TObject);
begin
  showmessage('你选择了：'+m12.Caption);
end;

procedure TMainForm.M13Click(Sender: TObject);
begin
   showmessage('你选择了：'+m13.Caption);
end;

procedure TMainForm.M14Click(Sender: TObject);
begin
   showmessage('你选择了：'+m14.Caption);
end;

procedure TMainForm.m16Click(Sender: TObject);
begin
     showmessage('你选择了：'+m16.Caption);
end;

procedure TMainForm.m17Click(Sender: TObject);
begin
   showmessage('你选择了：'+m17.Caption);
end;

procedure TMainForm.m19Click(Sender: TObject);
begin
   showmessage('你选择了：'+m19.Caption);
   close;
end;

procedure TMainForm.m21Click(Sender: TObject);
begin
     showmessage('你选择了：'+m21.Caption);
end;

procedure TMainForm.m22Click(Sender: TObject);
begin
showmessage('你选择了：'+m22.Caption);
end;

procedure TMainForm.m23Click(Sender: TObject);
begin
showmessage('你选择了：'+m23.Caption);
end;

procedure TMainForm.m24Click(Sender: TObject);
begin
 showmessage('你选择了：'+m24.Caption);
end;

procedure TMainForm.m25Click(Sender: TObject);
begin
showmessage('你选择了：'+m25.Caption);
end;

procedure TMainForm.m26Click(Sender: TObject);
begin
 showmessage('你选择了：'+m26.Caption);
end;

procedure TMainForm.m27Click(Sender: TObject);
begin
  showmessage('你选择了：'+m27.Caption);
end;

procedure TMainForm.m28Click(Sender: TObject);
begin
  showmessage('你选择了：'+m28.Caption);
end;

procedure TMainForm.m29Click(Sender: TObject);
begin
   showmessage('你选择了：'+m29.Caption);
end;

procedure TMainForm.m210Click(Sender: TObject);
begin
  showmessage('你选择了：'+m210.Caption);
end;

procedure TMainForm.m211Click(Sender: TObject);
begin
  showmessage('你选择了：'+m211.Caption);
end;

procedure TMainForm.m212Click(Sender: TObject);
begin
  showmessage('你选择了：'+m212.Caption);
end;

procedure TMainForm.m213Click(Sender: TObject);
begin
   showmessage('你选择了：'+m213.Caption);
end;

procedure TMainForm.m214Click(Sender: TObject);
begin
  showmessage('你选择了：'+m214.Caption);
end;

procedure TMainForm.m41Click(Sender: TObject);
begin
  showmessage('你选择了：'+m41.Caption);
end;

procedure TMainForm.m31Click(Sender: TObject);
begin
  showmessage('你选择了：'+m31.Caption); //显示提示信息
  m31.Checked:=not m31.Checked;     //改变选择标志
end;

procedure TMainForm.m32Click(Sender: TObject);
begin
  showmessage('你选择了：'+m32.Caption);
end;

procedure TMainForm.m43Click(Sender: TObject);
begin
   showmessage('你选择了：'+m43.Caption);
end;

procedure TMainForm.p1Click(Sender: TObject);
begin
    m21.Click;     //调用主菜单相应的事件
end;

procedure TMainForm.p3Click(Sender: TObject);
begin
   m23.Click;
end;

procedure TMainForm.p4Click(Sender: TObject);
begin
   m24.Click;
end;

procedure TMainForm.p5Click(Sender: TObject);
begin
   m25.Click;
end;

procedure TMainForm.p6Click(Sender: TObject);
begin
   m26.Click;
end;

procedure TMainForm.p8Click(Sender: TObject);
begin
  m213.Click;
end;
end.