zoukankan      html  css  js  c++  java
  • PopupMenu动态创建菜单

    1.TPopupMenu一条横线在Caption输入一个'-'就可以了.
    2.在Caption输入名字之后加入一个&就可以不显示快捷键,比如: 退出&
      这样退出按钮的快捷键就不会显示出来了.

    动态地创建菜单, 通常我们使用以下的语句
    PopupMenu1 := TPopupMenu.Create(Self);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'First Menu';
    Item.OnClick := MenuItem1Click;
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Second Menu';
    Item.OnClick := MenuItem2Click;
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Third Menu';
    Item.OnClick := MenuItem3Click;
    PopupMenu1.Items.Add(Item);

    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := '-';
    PopupMenu1.Items.Add(Item);
    Item := TMenuItem.Create(PopupMenu1);
    Item.Caption := 'Fourth Menu';
    Item.OnClick := MenuItem4Click;
    PopupMenu1.Items.Add(Item);

    其实我们可以使用一种更快的方法达到同样的功能, 但使用很少的代码, 那就是用NewLine和NewItem, 看看下面的例子, 是不是很简单?
    PopupMenu1 := TPopupMenu.Create(Self);
    with PopUpMenu1.Items do
    begin
    Add(NewItem('First Menu',0,False,True,MenuItem1Click,0,'MenuItem1'));
    Add(NewItem('Second Menu',0,False,True,MenuItem2Click,0,'MenuItem2'));
    Add(NewItem('Third Menu',0,False,True,MenuItem3Click,0,'MenuItem3'));
    Add(NewLine); // 增加一个分割棒
    Add(NewItem('Fourth Menu',0,False,True,MenuItem4Click,0,'MenuItem4'));
    end;

  • 相关阅读:
    Numpy 里线性代数函数
    lateral view 使用方法
    Numpy 基础函数
    Numpy 基础操作
    pandas 基础操作记录学习
    pandas向左移动非空单元格
    供应商自动记账
    SAP Smartforms 参数配置
    SAP FPM 相关包 APB_FPM_CORE
    SAP BPC 清除CUBE 中的数据
  • 原文地址:https://www.cnblogs.com/weijie-liu/p/9644998.html
Copyright © 2011-2022 走看看