unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, StdCtrls, Menus;

type
  TMenuClick = procedure(Sender: TObject) of object;
  TForm1 = class(TForm)
    ADOTable1: TADOTable;
    MainMenu1: TMainMenu;
    N4444: TMenuItem;
    Button1: TButton;
    N1: TMenuItem;
    N2: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    FSL: TStringlist;
    { Private declarations }
    procedure Menuclick1(Sender: TObject);
    procedure Menuclick2(Sender: TObject);

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  MenuClick: TMenuClick;
begin
  //準(zhǔn)備列表 ,現(xiàn)多自己加
  MenuClick := Menuclick1;
  FSL := TStringlist.Create;
  FSL.AddObject('Menuclick1', TObject(@MenuClick));
  MenuClick := Menuclick2;
  FSL.AddObject('Menuclick2', TObject(@MenuClick));
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  FSL.Free;
end;

procedure TForm1.Menuclick1(Sender: TObject);
begin
  ShowMessage('Menuclick1');
end;

procedure TForm1.Menuclick2(Sender: TObject);
begin
  ShowMessage('Menuclick2');
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MenuClick: TMenuClick;
begin
  //調(diào)用方法
  @MenuClick := FSL.Objects[FSL.IndexOf('Menuclick1')];
  N1.OnClick := MenuClick;

  @MenuClick := FSL.Objects[FSL.IndexOf('Menuclick2')];
  N2.OnClick := MenuClick;
end;

end.