动态菜单事件调用.txt

设计编码中出现的计算正确性和一致性、程序逻辑控制等方面出现的问题在系统中起关键作用将导致软件死机功能正常实现

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
  //准备列表 ,现多自己加
  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
  //调用方法
  @MenuClick := FSL.Objects[FSL.IndexOf('Menuclick1')];
  N1.OnClick := MenuClick;

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

end.