main.dfm

此程序演示了利用xml控件（当然也可以不通过xml控件）

object frmMain: TfrmMain
  Left = 90
  Top = 150
  Width = 783
  Height = 540
  Caption = 'NHXML'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000008800000000000000000000000000000888000000000000000
    000000000000000880000000000000000000000000000F088000000000000000
    000000000000FF08800000000000000000000000080FFF088000000000000000
    00000088880FFF08888800000000000000008880007FFF088888880000000000
    00080007FFFFFF70008888800000000000007FFFFFFFFFFFF700888800000000
    007FFFFFFFFFFFFFFFF70888800000000FFFFFFFFFFFFFFFFFFFF08888000000
    FFFFFFFFFFFFFFFFFFFFFF088880008FFFFFFFFCCCCCCCCCFFFFFFF08880087F
    FFFFFFFFFCCCCCFFFFFFFFF7088808FFFFFFFFFFFCCCCCFFFFFFFFFF088887FF
    FFFFFFFFFCCCCCFFFFFFFFFF70888FFFFFFFFFFFFCCCCCFFFFFFFFFFF0888FFF
    FFFFFFFFFCCCCCFFFFFFFFFFF0888FFFFFFFFFFFFCCCCCFFFFFFFFFFF0888FFF
    FFFFFFFFFCCCCCFFFFFFFFFFF0888FFFFFFFFFFCCCCCCCFFFFFFFFFFF08087FF
    FFFFFFFFFFFFFFFFFFFFFFFF708008FFFFFFFFFFFFFFFFFFFFFFFFFF0800087F
    FFFFFFFF7CCCC7FFFFFFFFF70000008FFFFFFFFFCCCCCCFFFFFFFFF000000008
    FFFFFFFFCCCCCCFFFFFFFF00000000008FFFFFFF7CCCC7FFFFFFF00000000000
    087FFFFFFFFFFFFFFFF780000000000000887FFFFFFFFFFFF788000000000000
    00008887FFFFFF7888000000000000000000000888888880000000000000FFFF
    E7FFFFFFC7FFFFFF87FFFFFF07FFFFFE07FFFFF807FFFFC000FFFF00003FFE00
    001FFC00000FF8000007F0000003E0000001C000000180000000800000000000
    0000000000000000000000000000000000000000000100000001800000038000
    0007C000000FE000001FF000003FF800007FFC0000FFFF0003FFFFE01FFF}
  Menu = mnuMain
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ControlBar1: TControlBar
    Left = 0
    Top = 0
    Width = 775
    Height = 26
    Align = alTop
    AutoSize = True
    BevelEdges = []
    BevelInner = bvNone
    BevelOuter = bvNone
    BevelKind = bkFlat
    TabOrder = 0
    object tbMain: TToolBar
      Left = 11
      Top = 2
      Width = 150
      Height = 22
      Caption = 'tbMain'
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      Images = ilMenu
      TabOrder = 0
      object tbNew: TToolButton
        Left = 0
        Top = 0
        Action = acFileNew
      end
      object tbOpen: TToolButton
        Left = 23
        Top = 0
        Action = acFileOpen
      end
      object tbSave: TToolButton
        Left = 46
        Top = 0
        Action = acFileSaveAs
      end
    end
  end
  object sbMain: TStatusBar
    Left = 0
    Top = 475
    Width = 775
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object nbMain: TNotebook
    Left = 0
    Top = 26
    Width = 775
    Height = 449
    Align = alClient
    TabOrder = 2
    object TPage
      Left = 0
      Top = 0
      Caption = 'Default'
      object Splitter1: TSplitter
        Left = 329
        Top = 0
        Height = 449
      end
      object nbData: TNotebook
        Left = 332
        Top = 0
        Width = 443
        Height = 449
        Align = alClient
        TabOrder = 0
        object TPage
          Left = 0
          Top = 0
          Caption = 'Default'
          object pcData: TPageControl
            Left = 0
            Top = 0
            Width = 443
            Height = 449
            ActivePage = tsTags
            Align = alClient
            TabOrder = 0
            object tsTags: TTabSheet
              Caption = 'Attributes'
            end
          end
        end
      end
      object nbTree: TNotebook
        Left = 0
        Top = 0
        Width = 329
        Height = 449
        Align = alLeft
        TabOrder = 1
        object TPage
          Left = 0
          Top = 0
          Caption = 'Default'
          object pcTree: TPageControl
            Left = 0
            Top = 0
            Width = 329
            Height = 449
            ActivePage = tsXmlTree
            Align = alClient
            TabOrder = 0
            OnChange = pcTreeChange
            object tsXmlTree: TTabSheet
              Caption = 'XML Tree'
            end
            object tsXmlSource: TTabSheet
              Caption = 'XML Source'
              ImageIndex = 1
              object mmXMLSource: TMemo
                Left = 0
                Top = 0
                Width = 321
                Height = 421
                Align = alClient
                Font.Charset = ANSI_CHARSET
                Font.Color = clWindowText
                Font.Height = -11
                Font.Name = 'Fixedsys'
                Font.Style = []
                ParentFont = False
                ScrollBars = ssBoth
                TabOrder = 0
                WordWrap = False
              end
            end
          end
        end
      end
    end
  end
  object ilMenu: TImageList
    Left = 24
    Top = 48
    Bitmap = {
      494C010103000400040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000001000000001001000000000000008
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420042000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000420042004200420042
      0042004200420042000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420042000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7F00000042004200420042
      0042004200420042004200000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420042000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000E07FFF7F0000004200420042
      0042004200420042004200420000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420042000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FE07FFF7F000000420042
      0042004200420042004200420042000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420042004200420042
      0042004200420042004200420042000000000000000000000000000000000000
      0000000000000000000000000000000000000000E07FFF7FE07FFF7F00000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420042000000000000
      0000000000000000000000420042000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FE07FFF7FE07FFF7FE07F
      FF7FE07FFF7F0000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420000000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000E07FFF7FE07FFF7FE07FFF7F
      E07FFF7FE07F0000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7FFF7FFF7FFF7F0000000000000000000000420000000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000FF7FE07FFF7F000000000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7F0000000000000000000000000000000000420000000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7F0000FF7F00000000000000000000000000420000000000000000
      0000000000000000000000000042000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000FF7FFF7FFF7F
      FF7FFF7FFF7F0000000000000000000000000000000000420000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000420000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000424D3E000000000000003E000000
      2800000040000000100000000100010000000000800000000000000000000000
      000000000000000000000000FFFFFF00FFFFFFFFFFFF0000FFFFE003C0010000
      001FE00380310000000FE003803100000007E003803100000003E00380010000
      0001E003800100000001E00380010000001FE0038FF10000001FE0038FF10000
      001FE0038FF100008FF1E0078FF10000FFF9E00F8FF10000FF75E01F8FF50000
      FF8FFFFF80010000FFFFFFFFFFFF000000000000000000000000000000000000
      000000000000}
  end
  object alMain: TActionList
    Images = ilMenu
    Left = 64
    Top = 48
    object acFileOpen: TAction
      Caption = 'Open'
      Hint = 'Open XML File'
      ImageIndex = 0
      OnExecute = acFileOpenExecute
    end
    object acFileNew: TAction
      Caption = 'New'