请教：如何替TMenuItem加上弹出菜单？如何响应动态创建的TMenuItem的事件？

Question

form= TForm
……
  ActionList: TActionList;  //右键添加一个Action 名为：action1
  MenuItem: TMenuItem;
proc
var
  TempItem: TMenuItem;
begin
  TempItem:= NewItem('Caption',TexttoShortcut(''),(boolean)checked,(boolean)enabled),Action1.OnExcute,0,'Name');
  MenuItem.Items.Add(TempItem);
end;procedure  Action1.Onexcute(sender:……);
begin
  if (Sender as TMenuItem).Name= 'KillUSA'  then
  begin
    Plane.Fly;
    Plane.Down;
    Skyscraper.Crush;
  end;
end;

Answer 1

抱歉抱歉！  本是无心,莫怪于我！如果需要抱歉： Sorry，不是有意。回复人：　sdhp(小毅)　(2001-9-28 20:26:19)  得0分 
form= TForm
……
  ActionList: TActionList;  //右键添加一个Action 名为：action1
  MenuItem: TMenuItem;
proc
var
  TempItem: TMenuItem;
begin
  TempItem:= NewItem('Caption',TexttoShortcut(''),(boolean)checked,(boolean)enabled),Action1.OnExcute,0,'Name');
  MenuItem.Items.Add(TempItem);
end;procedure  Action1.Onexcute(sender:……);
begin
  if (Sender as TMenuItem).Name= 'GotoUSA'  then
  begin
    Plane.Fly;
    Plane.Down;
    USA.Welcome;
  end;
end;  That's  O.K.?