在线等待，请高手指点，动态菜单的问题。

Question

var
MainMenu:TMainMenu;
mitem:  TMenuItem;
begin
 MainMenu:=TMainMenu.Create(self);
 MainMenu.AutoHotkeys:=maAutomatic;
 MainMenu.AutoLineReduction:=maAutomatic;
 MainMenu.BiDiMode :=bdlefttoright;
 MainMenu.OwnerDraw :=false;
 MainMenu.AutoMerge:=false;
 MainMenu.Tag :=0;
 MainMenu.ParentBiDiMode:=true;
 Mitem:=TMEnuItem.Create(mainmenu);
 mitem.Caption:='test';
 Mainmenu.Items.Add(mitem);
 MainMenu.Items.Enabled :=true;
 MainMenu.Items.AutoCheck:=false;
 mainmenu.Items.Caption  :='aaaa';
 MainMenu.Items.Break :=mbnone;
 MainMenu.Items.Visible :=true;
 MainMenu.Items.Tag :=0;
 form1.Menu:=MainMenu;
end;

Answer 1

窗体没有连接...... form1.menu := mainmenu1;

Answer 2

还有可能是你改变了窗体的BorderStyle

Answer 3

设置这么多属性干什么
procedure TForm1.Button1Click(Sender: TObject);
var
 menu:TMainMenu;
 N1:TMenuItem;
begin
  menu:=TMainMenu.Create(self);
  N1:=TMenuItem.Create(self);
  N1.Caption:='aaaa';
  menu.Items.Add(N1);
end;

Answer 4

var
  MainMenu1: TMainMenu;
    index: Integer;
  NewItem: TMenuItem;
begin
  MainMenu1 := TMainMenu.Create(form1);
  form1.Menu :=mainmenu1;
  for index := 0 to 3 do
  begin
    NewItem := TMenuItem.Create(MainMenu1); // create the new item
    MainMenu1.Items.Add(NewItem);// add it to the Popupmenu
    NewItem.Caption := 'Menu Item ' + IntToStr(index);
    NewItem.Tag := index;

Answer 5

楼上的，我的ONCLINK事件要怎么写呢？

Answer 6

你光有mainmenu,但没有具体的menuitem,显示什么呀？参考netlib(河外孤星)的。

Answer 7

用我的代码，你需要设置如
...
procedure ddd(sender :tobject);
begin
   showmessage('hehe');
end;mitem.onclick:=ddd;

Answer 8

楼上的，问题是只有当我我点击了菜单后才出现‘hehe’啊。