小编del*_*010的帖子

平台:delphi 2010

1. 在form1上删除Tmainmenu
2. 在form1上删除Tpopupmenu
3. 添加mainmenu1和popupmenu项目(mainmenu - > file - > item1,popupmenu - > popup item1)
4. item1.onRgihtClick show popupmenu
5. F9
6. 文件 - > item1右键单击,弹出菜单,选择item1 bla bla bla ....

object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 222
  ClientWidth = 447
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = …