关于动态菜单！

Question

我在程序中根据配置文件生成了动态菜单，请问怎么生成事件那？

Answer 1

var  
  NewMenu: TMenuItem;
begin
 NewMenu := TMenuItem.Create(Self);
    NewMenu.Caption := PlugInName;
    NewMenu.ShortCut := TextToShortCut(ShortCut);
    NewMenu.OnClick := PlugInClick;
    NewMenu.Tag := i;
    plugin1.Add (NewMenu);
end;

Answer 2

procedure plugInClick(Sender: TObject);
begin

Answer 3

procedure TForm1.AClick(Sender:TObject);
begin
    ShowMessage('不好了，打雷下雨收衣服了！');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  AItem:TMenuItem;
begin
  AItem:=TMenuItem.Create(MainMenu1);
  AItem.MenuIndex:=1;
  AItem.OnClick:=AClick;
  AItem.Caption:='不好了';
  a1.Add(AItem);
end;

Answer 4

procedure TForm1.AClick(Sender:TObject);
begin
    ShowMessage('不好了，打雷下雨收衣服了！');
end;procedure TForm1.Button1Click(Sender: TObject);
var
  AItem:TMenuItem;
begin
  AItem:=TMenuItem.Create(MainMenu1);
  AItem.MenuIndex:=1;
  AItem.OnClick:=AClick;
  AItem.Caption:='不好了';
  a1.Add(AItem);
end;

Answer 5

TMD的CSDN怎么搞的，有时候象死机了一样慢！！

Answer 6

const 
  idMyMessage=$F200;
procedure MyMessage(var message:TMessage);message idMyMessage;
....procedure ...MyMessage(var message:TMessage);
begin
  inherited;
  ........
end;
idMyMessage是你加入菜单项的标志

Answer 7

:::::::::::Over：：：：：：：：：：：