zoukankan      html  css  js  c++  java
  • Delphi 之 菜单组件(TMainMenu)

      菜单组件TMainMenu

    创建菜单双击TmenuMain,单击Caption就可以添加一个菜单项

     

    菜单中添加分割线只需加“-”就可以添加一个分割线

      级联菜单的设计

    单击鼠标右键弹出菜单中选择Create Submenu菜单项

    单选功能设计

     要在设计的菜单项目中选择RadioItem属性为True,Checked属性为True

    复选功能的设计

     在设计菜单项目中选择RadioItem属性为False,Checked属性为True

      动态创建菜单

      

    源代码如下

    procedure TForm1.Button1Click(Sender: TObject);
    var
      MainMenu: TMainMenu;
      MenuItem: TMenuItem;
    begin
    //主菜单创建 MainMenu:
    =TMainMenu.Create(self); Self.Menu:=MainMenu; //文件菜单创建 MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:='文件'; MainMenu.Items.Add(MenuItem); //新建子菜单创建 MenuItem:=TMenuItem.Create(MainMenu); MenuItem.Caption:='新建'; MainMenu.Items[0].Add(MenuItem); //子菜单中的子菜单创建 MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:='打开'; MainMenu.Items[0].Items[0].Add(MenuItem); MenuItem:= TMenuItem.Create(MainMenu); MenuItem.Caption:='保存'; MainMenu.Items[0].Items[0].Add(MenuItem); end; end.

      为主菜单添加图标

      为菜单添加图标,首先用TImagaList组件为菜单指定好图标,将菜单中的Images属性设为ImageList1,然后选择要添加的图标索引。如图所示:

  • 相关阅读:
    大道至简第5 章 失败的过程也是过程读后感
    序列化组件之MoelSerializer
    序列化组件之Serializer
    DRF框架 生命周期 及五大模块源码分析
    Restful API 接口与规范
    Vue原理及核心
    Vue之路由跳转传参,插件安装与配置
    Vue项目搭建及环境配置
    Vue之组件
    Vue实例成员及事件
  • 原文地址:https://www.cnblogs.com/delphi2014/p/4024209.html
Copyright © 2011-2022 走看看