请问如何生成Popup Menu的二级菜单？？急急急急急！！

Question

请问如何生成Popup Menu的二级菜单？？通过调用数据库中的记录来添加。

Answer 1

在一级菜单上点右键，选Create Submenu就OK了。
完成就给分。

Answer 2

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Menu: TMenuItem;
    SubMenu: TMenuItem;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var a:TMenuItem;
begin
  a:=TMenuItem.Create(self);
  SubMenu.Add(a);
  a.Caption:='new';
end;end.********************************
路漫漫兮其修远兮，吾将上下而求索
********************************

Answer 3

请问Menu: TMenuItem;
    SubMenu: TMenuItem;
在那个组件页里呀？？？？我找不到呀！！

Answer 4

暈!TMenuItem這個不是一個可視的控件,隻是一個類,就象TStringList一樣.

Answer 5

兄弟，找来找去，只能找到第一层的。
以我的分析来看，好像不是分层的，因为他们没有什么关系应该是同一等级的，
你再找找，找到了告诉我。var
  b : array[1..2,1..2] of TMenuItem;
begin
  b[1,1]:=Tmenuitem.Create(self);
  b[1,2]:=Tmenuitem.Create(self);
  b[2,2]:=Tmenuitem.Create(self);
  b[1,1].Caption:='dfsdfdfsd';
  b[2,2].Caption:='11111111';
  b[1,2].Caption:='999999';
  Submenu1.Items.Add(b[1,1]);
  Submenu1.Items.Add(b[1,2]);
  Submenu1.Items.Add(b[2,2]);
end;

Answer 6

to : linzhengqun(风)
你的方法试过了， 真的不行。

Answer 7

可是我试过却可以，
好吧，楼主的意思是动态生成Popup Menu的二级菜单？？
我那个是动态生成MainMenu的二级菜单，但原理是一样的：
现在给你Popupmenu的二级菜单生成方法：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus;type
  TForm1 = class(TForm)
    PopupMenu1: TPopupMenu;
    One: TMenuItem;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var a:TMenuItem;
begin
  a:=TMenuItem.Create(self);
  One.Add(a);
  a.Caption:='new';
end;end.注意事项：１拉一个PopupMenu控件，设一个菜单项，名字为one
           2将Form1的属性察看器中的popupMenu属性指向刚才那个菜单控件
           3在Button的事件中写上
试一下吧，应该可以的

Answer 8

按照linzhengqun（风）的方法，该问题已经基本解决。就是必须第二次点击菜单项one时，生成的二级菜单才出现。如果可以请再帮我处理一下。我还有一个问题还要麻烦哥哥们地址在下面，那个问题是100分，这里分太少，大家可以去哪里领分。谢谢！！！http://community.csdn.net/Expert/topic/3167/3167909.xml?temp=.6072809