PopupMenu是动态的，如何动态的处理它的响应函数？

Question

明白是明白你的意思？
不过你这个动态的应该是做为把所有的情况都列出来，
然后把不需要的项的VISIBLE设为FALSE，需要的再调出来！
我觉得再动态的做它的响应函数是很麻烦的！
在创建的时候可以指定他的ONCLICK=FUNCTION（）吗？

Answer 1

做一个公共的响应函数pmiClick()然后在里面根据Sender来判断是哪一项发出的，再相应处理。新建popupmenu item时，把它的OnClick:=pmiClick;

Answer 2

menuItem.onclick=菜单CLICK事件；菜单CLICK事件就是你定义的过程

Answer 3

var 
 mypopupmenu:TPopupMenu;
 mypopupmenuitem:TMenuItem;
begin
 mypopupmenu:=TPopupMenu.create(self);
 mypopupmenuitem:=TmenuItem(mypopupmenu);
 mypopupmenuitem.caption:='我的'；
 mypopupmenuitem.onclick:=MyClick;
 nypopupmeny.items.add(mypopupmenuitem);
end;procedure Myclick(sender:TObject);
begin
 if sender is TMenuItem then 
   showmessage('我的');
end;

Answer 4

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, Menus;type
  TForm1 = class(TForm)
    Button1: TButton;
    DBGrid1: TDBGrid;
    PopupMenu1: TPopupMenu;
    sdfdsf1: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Procedure HH(Sender:TOBject);
  end;var
  Form1: TForm1;
  Popup:    TpopupMenu;implementation{$R *.dfm}{ TForm1 }procedure TForm1.HH(Sender: TOBject);
begin
    // 写代码
end;procedure TForm1.FormCreate(Sender: TObject);
Var
    Item:   TMenuitem;
begin
    Popup:=TpopupMenu.Create(Self);
    Item:=TMenuItem.Create(Popup);
    Item.OnClick:=HH;
    popup.Items.Add(Item);
end;end.

Answer 5

以上贴做法为例：
procedure TForm1.HH(Sender: TOBject);
begin
    With ( Sender As TMenuItem ) Do
    Begin
        If ( Caption = 'Item1' ) Then
            //  Do Item1
        Else If ( Caption = 'Item2' ) Then
            //  Do Item2
        //  ...
    End;
end;

Answer 6

在Componet--Import Componet。。里指定找到。DPK文件，然后在INSTALL  PACKAGE中在亿天加的控件前的复选框中打勾，然后就可以组件选项卡中找到了
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪磊磊磊倪
倪磊磊磊倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪磊磊磊倪
倪磊磊磊倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪磊磊磊倪
倪磊磊磊倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪磊磊磊倪
倪磊磊磊倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪磊磊磊倪
倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊磊磊磊磊磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪倪倪倪磊磊磊倪倪倪
倪倪倪磊磊磊倪倪倪倪倪磊磊倪倪倪倪磊磊倪倪磊倪倪磊磊磊倪倪倪
倪倪磊磊磊倪倪倪倪倪倪磊磊磊磊磊磊磊磊倪倪磊磊倪磊磊磊倪倪倪
倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊磊磊倪倪倪
磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊磊倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊磊磊倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊磊倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪磊磊倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪
倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪
倪倪磊磊倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪磊磊倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
磊倪倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪倪倪
倪倪倪倪倪倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪倪倪倪倪倪倪倪倪倪倪倪倪倪磊磊磊倪倪倪倪倪倪倪倪倪倪倪倪倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊磊倪
倪倪倪倪