弹出菜单创建

procedure TForm1.Button1Click(Sender: TObject);
var
MainMenu:TMainMenu;
MenuItem:TMenuItem;
begin
//创建主菜单对象,并设置主窗口的菜单为MainMenu对象
MainMenu:=TMainMenu.Create(Self);
Self.Menu:=MainMenu;

//创建MainMenu主菜单的第一级菜单对象 MainMenu.Items.Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='一级菜单';
MainMenu.Items.Add(MenuItem);

//创建MainMenu主菜单的第二级子菜单对象 MainMenu.Items[0].Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='二级菜单';
MainMenu.Items[0].Add(MenuItem);

//创建MainMenu主菜单的第三级子菜单对象 MainMenu.Items[0].Items[0].Add
MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='三级菜单';
MainMenu.Items[0].Items[0].Add(MenuItem);

// 用Items[0]...这种形式，可以创建 四级、五级直到N级菜单都可以

MenuItem:=TMenuItem.Create(MainMenu);
MenuItem.Caption:='四级菜单';
MainMenu.Items[0].Items[0].Items[0].Add(MenuItem);

end;

 

 

 

//弹出菜单事件

 

procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      pm:   TPopupMenu;  
      mi:   TMenuItem;  
  begin  
      pm   :=   TPopupMenu.Create(self);  
      mi   :=   TMenuItem.Create(self);  
      mi.Caption   :=   '新建(&N)';  
      pm.Items.Add(mi);  
      mi   :=   TMenuItem.Create(self);  
      mi.Caption   :=   '打开(&O)';  
      pm.Items.Add(mi);  
      mi   :=   TMenuItem.Create(self);  
      mi.Caption   :=   '-';  
      pm.Items.Add(mi);  
      mi   :=   TMenuItem.Create(self);  
      mi.Caption   :=   '退出(&X)';  
      pm.Items.Add(mi);  
      mi.OnClick   :=   miClick;  
      Button1.PopupMenu   :=   pm;  
  end;  
  //   在类里定义  
  procedure   TForm1.miClick(Sender:   TObject);  
  begin  
      Close;  
  end;