一个mainmenu的简单问题，谢谢大家。急阿！在线等

我在窗口上只有一个mainmenu控件。然后建立了几个下拉菜单。我想通过安菜单上的按钮就可以显示另外一些窗口，但是编译时出现（"or"expect but 'procedure'found）这样的错误，好像不能有两个或以上的procedure同时存在，请问是怎么回事？谢谢大家！

解决方案 »

  1.   

    你有没有把你所想显示的窗体的Unit放进去呀?或者是语法出错
      

  2.   

    你的另一个窗口a没有加入这个窗口b中，首先点击b窗口，再点击文件下的use unit加入a窗口
    ，这样才可以在一个窗口下调用其他窗口。
      

  3.   

    应该是少了分号或者是End;
      

  4.   

    检查语法
    分号、括号、End.
      

  5.   

    unit main;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, StdCtrls, DB, DBTables;type
      Tnamemain = class(TForm)
        MainMenu1: TMainMenu;
        N1: TMenuItem;
        N2: TMenuItem;
        N3: TMenuItem;
        N4: TMenuItem;
        N5: TMenuItem;
        N6: TMenuItem;
        N7: TMenuItem;
        N8: TMenuItem;
        N9: TMenuItem;
        N10: TMenuItem;
        N11: TMenuItem;
        N12: TMenuItem;
        N301: TMenuItem;
        N13: TMenuItem;
        N14: TMenuItem;
        N15: TMenuItem;
        Label1: TLabel;
        PopupMenu1: TPopupMenu;
        DataSource1: TDataSource;
        Table1: TTable;
            procedure N2Click(Sender: TObject);
        procedure FormClose(Sender: TObject; var Action: TCloseAction);
        procedure N3Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;var
      namemain: Tnamemain;implementation
    uses xuigai
    {$R *.dfm}
    procedure Tnamemain.N2Click(Sender: TObject);
    begin
     namexiugai.Show;
    end;procedure Tnamemain.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
      Application.Terminate;
    end;procedure Tnamemain.N3Click(Sender: TObject);
    begin
    Close;
    end;end.谢谢大家，你们都是好人啊
      

  6.   

    我要加的unite也已经放进去了