mainmenu,popupmenu的菜单项怎么用代码添加,click事件怎么用代码写啊,新手求助!小弟只会在属性卡里填写caption和n1click事件,换成代码怎么写啊!

解决方案 »

  1.   


    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus;type
      TForm1 = class(TForm)
        MainMenu1: TMainMenu;
        p1: TMenuItem;
        procedure FormCreate(Sender: TObject);
      private
        { Private declarations }
        procedure MyClick(Sender:TObject);
      public
        { Public declarations }
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
    var
      item:TMenuItem;
    begin
      item := TMenuItem.Create(MainMenu1);
      item.Caption := 'Menu1';
      item.OnClick := MyClick;
      MainMenu1.Items.Add(item);
    end;procedure TForm1.MyClick(Sender: TObject);
    begin
      ShowMessage('ok');
    end;end.
      

  2.   

    楼上的在item.OnClick := myclick;这里会报错啊!另外在菜单下拉列表里的项怎么加哦
      

  3.   

    一楼的代码已经写的很清楚了,如果还不明白就在CSDN里面查一下以前的贴子。