一个PopupMenu菜单的问题。

Question

怎么样动态创建一个PopupMenu菜单，并且在它上面新建立一个按纽，按下此按纽后触发一段代码?
谢谢了!

Answer 1

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
     procedure myClick(Sender: TObject);
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation
{$R *.dfm}
procedure TForm1.myClick(Sender: TObject);
begin
 showmessage((sender as TMenuItem).Caption);
end;
procedure TForm1.FormCreate(Sender: TObject);
var m:TMenuItem;
    aPop:TPopupMenu;
begin
  aPop:=TPopupMenu.Create(application);
  m:=TMenuItem.Create(application);
  m.Caption:='test';
  m.OnClick:=myClick;
  apop.Items.Add(m);
  self.PopupMenu:=aPop;
end;end.

Answer 2

有不少人到2星后泡CSDN的热情就下降了，一楼的高手让人敬佩!