treemenu.dfm

DELPHI深度遍历当前主菜单中所有子菜单

object Form1: TForm1
  Left = 161
  Top = 62
  Width = 348
  Height = 444
  BorderIcons = [biSystemMenu]
  Caption = #33756#21333#30340#28145#24230#36941#21382
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 0
    Top = 0
    Width = 105
    Height = 13
    AutoSize = False
    Caption = #26500#36896#30340#26641#24418#33756#21333
  end
  object Button1: TButton
    Left = 248
    Top = 296
    Width = 75
    Height = 25
    Caption = #24320#22987
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 248
    Top = 336
    Width = 75
    Height = 25
    Caption = #36864#20986
    TabOrder = 1
    OnClick = Button2Click
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 19
    Width = 193
    Height = 342
    BevelInner = bvSpace
    BevelKind = bkFlat
    Color = clInfoBk
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clNavy
    Font.Height = -8
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    HotTrack = True
    Indent = 15
    ParentFont = False
    ReadOnly = True
    ShowRoot = False
    TabOrder = 2
    OnMouseDown = TreeView1MouseDown
  end
  object MainMenu1: TMainMenu
    Left = 128
    object b1: TMenuItem
      Caption = #25991#20214
      object j1: TMenuItem
        Caption = #20445#23384
        object dsa2: TMenuItem
          Caption = #20840#37096#20445#23384
          OnClick = dsa2Click
        end
        object ui1: TMenuItem
          Caption = #20445#23384#20026'...'
          OnClick = ui1Click
        end
        object uo1: TMenuItem
          Caption = #24403#21069#25991#20214
          OnClick = uo1Click
        end
      end
      object yu1: TMenuItem
        Caption = #23548#20837
        OnClick = yu1Click
      end
      object N1: TMenuItem
        Caption = #23548#20986
        OnClick = N1Click
      end
      object N2: TMenuItem
        Caption = #36864#20986
        OnClick = N2Click
      end
    end
    object g2: TMenuItem
      Caption = #32534#36753
      object h1: TMenuItem
        Caption = #20462#25913
        OnClick = h1Click
      end
      object jk1: TMenuItem
        Caption = #22238#36716
      end
      object fg1: TMenuItem
        Caption = #25554#20837
        object dsa1: TMenuItem
          Caption = #22270#35937
        end
        object ty1: TMenuItem
          Caption = #25991#26412
        end
      end
    end
    object saf1: TMenuItem
      Caption = #24037#20855
      object fgdhf1: TMenuItem
        Caption = #21253
        object N8: TMenuItem
          Caption = #35774#35745#21253
          OnClick = N8Click
        end
        object N9: TMenuItem
          Caption = #36816#34892#21253
          object N10: TMenuItem
            Caption = #32534#35793
          end
          object N11: TMenuItem
            Caption = #27983#35272
            OnClick = N11Click
          end
        end
      end
      object fdfg1: TMenuItem
        Caption = #35843#35797
        OnClick = fdfg1Click
      end
    end
    object N3: TMenuItem
      Caption = #24110#21161
      object N4: TMenuItem
        Caption = #27880#20876
        object N6: TMenuItem
          Caption = #22312#32447#27880#20876
        end
        object N7: TMenuItem
          Caption = #30005#35805#27880#20876
        end
      end
      object N5: TMenuItem
        Caption = #20851#20110
      end
    end
    object N12: TMenuItem
      Caption = #36864#20986' '
      object N13: TMenuItem
        Caption = #21040#31995#32479
      end
      object N14: TMenuItem
        Caption = #26412#31995#32479
      end
      object iloveyou1: TMenuItem
        Caption = 'i love you'
        OnClick = iloveyou1Click
      end
    end
  end
end