根据主菜单生成脚本

原创 2006年06月02日 09:36:00

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Menus, DB, ADODB;

type
  TForm1 = class(TForm)
    con1: TADOConnection;
    mm1: TMainMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N31: TMenuItem;
    N41: TMenuItem;
    N51: TMenuItem;
    N61: TMenuItem;
    N561: TMenuItem;
    N71: TMenuItem;
    N72: TMenuItem;
    N81: TMenuItem;
    N91: TMenuItem;
    btn1: TButton;
    mmo1: TMemo;
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure GetMenu(AIndex: string; Menu: TMenuItem);
    procedure SaveMenu(Index: string;Menu: TMenuItem);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GetMenu(AIndex: string; Menu: TMenuItem);
var i: integer;
begin
  for i := 0 to Menu.Count - 1 do
  begin
    if Menu.Items[i].Count = 0 then
      SaveMenu(AIndex + IntToStr(i + 1) ,Menu.Items[i])
    else
      GetMenu(AIndex + IntToStr(i + 1),  Menu.Items[i]);
  end;
end;

procedure TForm1.SaveMenu(Index: string;Menu: TMenuItem);
begin
  mmo1.Lines.Add('Insert into ZDMenu (MENUID, MENUNAME, C_TAG) values (' + QuotedStr(Index) + ','
          + QuotedStr(Menu.Caption) + ',' + IntToStr(Menu.Tag) + ')');
end;

procedure TForm1.btn1Click(Sender: TObject);
var i: integer;
begin
  mmo1.Clear;
  for i := 0 to mm1.Items.Count - 1 do
  begin
     GetMenu(IntToStr(i + 1), mm1.Items[i]);
  end;
end;

end.

 

 

object Form1: TForm1
  Left = 309
  Top = 143
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mm1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object btn1: TButton
    Left = 32
    Top = 120
    Width = 75
    Height = 25
    Caption = 'btn1'
    TabOrder = 0
    OnClick = btn1Click
  end
  object mmo1: TMemo
    Left = 192
    Top = 24
    Width = 473
    Height = 377
    Lines.Strings = (
      'mmo1')
    TabOrder = 1
  end
  object con1: TADOConnection
    Left = 256
    Top = 224
  end
  object mm1: TMainMenu
    Left = 144
    Top = 72
    object N11: TMenuItem
      Caption = '1'
      object N12: TMenuItem
        Caption = '1'
      end
      object N31: TMenuItem
        Caption = '3'
      end
    end
    object N41: TMenuItem
      Caption = '4'
      object N51: TMenuItem
        Caption = '5'
      end
      object N61: TMenuItem
        Caption = '6'
      end
    end
    object N561: TMenuItem
      Caption = '56'
      object N71: TMenuItem
        Caption = '7'
      end
      object N72: TMenuItem
        Caption = '7'
        object N81: TMenuItem
          Caption = '8'
        end
        object N91: TMenuItem
          Caption = '9'
        end
      end
    end
  end
end

Unity_3D_主菜单制作

  • 2012年05月13日 18:20
  • 793KB
  • 下载

NGUI 3.9.0 Tween实现Toggle点击下拉菜单(游戏中常见的边角主菜单入口)

单机游戏中这个熟悉的按钮,会弹出如下一样的菜单,相信初次看到的,肯定会很惊奇,That's Great!接下来让我告诉大家其中的做法。 1.创建Toggle ,前景图(Background)为,...

jquery css 主菜单跳转样式

  • 2014年10月21日 21:37
  • 44KB
  • 下载

cocos2dx休闲游戏--Fruit & Bird 开发学习(2)--主菜单场景MainLayer

主菜单场景,主要实现进入游戏时的初始界面,它包括6个场景入口的菜单项:开始游戏,排行榜,帮助,设置,关于,退出 下面是MainLayer的头文件 #ifndef __MAIN_LAYER_H_ ...

ENVI主菜单中英文对照

  • 2016年01月04日 20:02
  • 8KB
  • 下载

UCINET软件使用简介——主菜单简介2

3.数据转换子菜单 (1)Block:把一个数据中的各个点进行分块,计算块密度     Collapse:压缩,即将一个矩阵的多行或多列组合在一起。 (2)Dichitimize:二值化处理...
  • CuoBaby
  • CuoBaby
  • 2016年11月15日 14:27
  • 659

MTK添加主菜单资源源码

  • 2010年02月25日 13:01
  • 99KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:根据主菜单生成脚本
举报原因:
原因补充:

(最多只允许输入30个字)