unit1.~dfm

可以拉伸的菜单界面.可以将菜单项不常用的菜单隐藏以来.

object Form1: TForm1
  Left = 320
  Top = 173
  Width = 696
  Height = 480
  Caption = #38144#21806#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 688
    Height = 426
    Align = alClient
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 432
    Top = 172
    object N4: TMenuItem
      Caption = #12304#22522#30784#20449#24687#31649#29702#12305
      object N5: TMenuItem
        Caption = #21830#21697#20449#24687#31649#29702
        ImageIndex = 0
        Visible = False
      end
      object N6: TMenuItem
        Caption = #23458#25143#20449#24687#31649#29702
        ImageIndex = 1
        Visible = False
      end
      object N7: TMenuItem
        Caption = #12304#24211#23384#31649#29702#12305
      end
      object N33: TMenuItem
        Caption = #24211#23384#25968#37327#35843#25972
        Visible = False
      end
      object N34: TMenuItem
        Caption = #24211#23384#26597#35810
        Visible = False
      end
      object N35: TMenuItem
        Caption = #24211#23384#20215#26684#35843#25972
        Visible = False
      end
      object N36: TMenuItem
        Caption = #24211#23384#19978#19979#38480#35774#32622
        Visible = False
      end
      object N37: TMenuItem
        Caption = #24211#23384#30424#28857
        Visible = False
      end
      object Y1: TMenuItem
        Caption = '----Y----'
        OnClick = Y1Click
      end
    end
    object MenuItem1: TMenuItem
      Caption = #12304#38144#21806#31649#29702#12305
      object MenuItem4: TMenuItem
        Caption = #23458#25143#35746#36135#31649#29702
        ImageIndex = 6
        Visible = False
      end
      object MenuItem2: TMenuItem
        Caption = #21830#21697#38144#21806#31649#29702
        ImageIndex = 4
        Visible = False
      end
      object MenuItem3: TMenuItem
        Caption = #38144#21806#36864#36135#31649#29702
        ImageIndex = 5
        Visible = False
      end
      object N9: TMenuItem
        Caption = #12304#32467#27454#31649#29702#12305
      end
      object N12: TMenuItem
        Caption = #23458#25143#32467#27454#31649#29702
        Visible = False
      end
      object N13: TMenuItem
        Caption = #23458#25143#27424#27454#35686#31515
        Visible = False
      end
      object N14: TMenuItem
        Caption = #23458#25143#26597#35810
        Visible = False
      end
      object y2: TMenuItem
        Caption = '---Y---'
        OnClick = y2Click
      end
    end
    object MenuItem5: TMenuItem
      Caption = #12304#38144#21806#26597#35810#12305
      object N32: TMenuItem
        Caption = #23458#25143#35746#36135#21333#26597#35810
      end
      object MenuItem6: TMenuItem
        Caption = #21830#21697#38144#21806#26597#35810
        ImageIndex = 8
      end
      object N8: TMenuItem
        Caption = #38144#21806#36864#36135#26597#35810
        ImageIndex = 9
      end
      object N10: TMenuItem
        Caption = #23458#25143#23545#36134#21333#26597#35810
        ImageIndex = 10
      end
      object N11: TMenuItem
        Caption = #36229#26399#24212#25910#27454#26597#35810
        ImageIndex = 11
      end
    end
    object R1: TMenuItem
      Caption = #12304#38144#21806#25253#34920#12305
      object N1: TMenuItem
        Caption = #26085#38144#21806#25253#34920
        ImageIndex = 12
      end
      object N2: TMenuItem
        Caption = #26376#38144#21806#25253#34920
        ImageIndex = 13
      end
      object N3: TMenuItem
        Caption = #21333#21830#21697#38144#21806#25253#34920
        ImageIndex = 14
      end
    end
    object N20: TMenuItem
      Caption = #12304#31995#32479#35774#32622#12305
      object N31: TMenuItem
        Caption = #25805#20316#21592#31649#29702
      end
      object N21: TMenuItem
        Caption = #25805#20316#21592#26435#38480
      end
      object N27: TMenuItem
        Caption = #20462#25913#23494#30721
      end
      object N23: TMenuItem
        Caption = #25968#25454#22791#20221#19982#24674#22797
      end
      object N22: TMenuItem
        Caption = #31995#32479#21021#22987#21270
      end
      object N24: TMenuItem
        Caption = #35745#31639#22120
      end
      object N25: TMenuItem
        Caption = #35760#20107#26412
      end
    end
    object N28: TMenuItem
      Caption = #12304#20851#20110#12305
      object N29: TMenuItem
        Caption = #20851#20110
      end
      object N16: TMenuItem
        Caption = #36864#20986
        OnClick = N16Click
      end
    end
  end
end