动态生成的菜单,如何在功能函数内得到,caption属性的值?

解决方案 »

  1.   

    begin
          MenuItem := TMenuItem.Create(Self);  
          MenuItem .Name := 'Hello';
          MenuItem .Caption := 'Wellcom'
        end;
      

  2.   

    var
      MenuItem :TMenuItem
        begin
          MenuItem := TMenuItem.Create(Self);  
          MenuItem .Name := 'Hello';
          MenuItem .Caption := 'Wellcom'
        end;
      

  3.   

    我是说如何访问?比如动态菜单有各功能函数onclick();
    我想在函数中访问定义的caption属性!
    例如:
    label1.caption:="新菜单的caption。"
      

  4.   

    Label1.Caption := TMenuItem(Sender).Caption;
      

  5.   

    呵呵,如下。Label1.Caption := (Sender as TMenuItem).Caption;
      

  6.   

    可是,我要放在onclick函数里呀!
      

  7.   

    A
    B在点A时取B的CAPTION是不是?放在列表里头好了,CAPTIOn
      

  8.   

    如果A取A的就是(Sender as TMenuItem).Caption
    你取A的你知道A的名字么?
    就算是动态创建的,你也有个标记什么的。比如Tag里头置啥
      

  9.   

    (Sender as TMenuItem).Caption
      

  10.   

    来看看下面的帖子,看了也许会浪费你半分钟时间,但不看相信如果和你有关,你一定后悔 
    http://expert.csdn.net/Expert/topic/1546/1546651.xml?temp=.5070154
      

  11.   

    成功了!
    可是前面有&符号!
    怎么去掉呀?我可是要拿他查询的 !
      

  12.   

    设手动了!
    可还有呀!
    载建立菜单的时候:
    newmenu.AutoHotkeys:=mamanual;
      

  13.   

    通过Tag表示对象
    这样访问简单
    又可以使用同一个OnClick
    OnClick:=MyClick;