Delphi控件源码

开发平台：
Delphi

Unit1.~dfm：源码内容
							object Form1: TForm1
  Left = 211
  Top = 158
  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 = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu2
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Left = 24
    Top = 24
    object N1: TMenuItem
      Caption = #25991#20214
      object N7: TMenuItem
        Caption = #26032#24314
      end
      object N8: TMenuItem
        Caption = #25171#24320
      end
      object N9: TMenuItem
        Caption = #20445#23384
      end
      object N10: TMenuItem
        Bitmap.Data = {
          26050000424D26050000000000003604000028000000100000000F0000000100
          080000000000F0000000CE0E0000CE0E00000001000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A6000020400000206000002080000020A0000020C0000020E000004000000040
          20000040400000406000004080000040A0000040C0000040E000006000000060
          20000060400000606000006080000060A0000060C0000060E000008000000080
          20000080400000806000008080000080A0000080C0000080E00000A0000000A0
          200000A0400000A0600000A0800000A0A00000A0C00000A0E00000C0000000C0
          200000C0400000C0600000C0800000C0A00000C0C00000C0E00000E0000000E0
          200000E0400000E0600000E0800000E0A00000E0C00000E0E000400000004000
          20004000400040006000400080004000A0004000C0004000E000402000004020
          20004020400040206000402080004020A0004020C0004020E000404000004040
          20004040400040406000404080004040A0004040C0004040E000406000004060
          20004060400040606000406080004060A0004060C0004060E000408000004080
          20004080400040806000408080004080A0004080C0004080E00040A0000040A0
          200040A0400040A0600040A0800040A0A00040A0C00040A0E00040C0000040C0
          200040C0400040C0600040C0800040C0A00040C0C00040C0E00040E0000040E0
          200040E0400040E0600040E0800040E0A00040E0C00040E0E000800000008000
          20008000400080006000800080008000A0008000C0008000E000802000008020
          20008020400080206000802080008020A0008020C0008020E000804000008040
          20008040400080406000804080008040A0008040C0008040E000806000008060
          20008060400080606000806080008060A0008060C0008060E000808000008080
          20008080400080806000808080008080A0008080C0008080E00080A0000080A0
          200080A0400080A0600080A0800080A0A00080A0C00080A0E00080C0000080C0
          200080C0400080C0600080C0800080C0A00080C0C00080C0E00080E0000080E0
          200080E0400080E0600080E0800080E0A00080E0C00080E0E000C0000000C000
          2000C0004000C0006000C0008000C000A000C000C000C000E000C0200000C020
          2000C0204000C0206000C0208000C020A000C020C000C020E000C0400000C040
          2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
          2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
          2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
          2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
          2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0101A4
          FFFFFFFFFFFF0101FFFFFFFFFF010101A4FFFFFFFF0101A4FFFFFFFFFFFF0101
          01A4FFFF010101FFFFFFFFFFFFFFFF010101A4010101FFFFFFFFFFFFFFFFFFFF
          0101010101FFFFFFFFFFFFFFFFFFFFFFFF010101A4FFFFFFFFFFFFFFFFFFFFFF
          0101010101A4FFFFFFFFFFFFFFFFFF010101FF010101A4FFFFFFFFFFFFFF0101
          01FFFFFF010101A4FFFFFFFFFF010101FFFFFFFFFF010101FFFFFFFFFF0101FF
          FFFFFFFFFFFF0101FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
          FFFFFFFFFFFFFFFFFFFF}
        Caption = #20851#38381
      end
      object N20: TMenuItem
        Caption = '-'
      end
      object N24: TMenuItem
        Caption = #25171#21360
      end
      object N25: TMenuItem
        Caption = #36864#20986
        OnClick = N25Click
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object N11: TMenuItem
        Caption = #21098#20999
      end
      object N12: TMenuItem
        Caption = #22797#21046
      end
      object N13: TMenuItem
        Caption = #31896#36148
      end
      object N14: TMenuItem
        Caption = #21024#38500
      end
    end
    object N3: TMenuItem
      Caption = #26597#25214
    end
    object N4: TMenuItem
      Caption = #35270#22270
      object N21: TMenuItem
        Caption = #26222#36890
      end
      object web1: TMenuItem
        Caption = 'web'#29256#24335
      end
      object N22: TMenuItem
        Caption = #39029#38754
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object N26: TMenuItem
        Caption = #24037#20855
        object N27: TMenuItem
          Caption = #24120#29992
        end
        object N28: TMenuItem
          Caption = #26684#24335
        end
        object N29: TMenuItem
          Caption = #32472#22270
        end
        object N30: TMenuItem
          Caption = #22823#32434
        end
        object N31: TMenuItem
          Caption = #22270#29255
        end
      end
    end
    object N5: TMenuItem
      Caption = #25554#20837
    end
    object N6: TMenuItem
      Caption = #26684#24335
    end
    object N15: TMenuItem
      Caption = #24037#20855
      object N16: TMenuItem
      end
    end
    object N17: TMenuItem
      Caption = #34920#26684
    end
    object N18: TMenuItem
      Caption = #31383#21475
    end
    object N19: TMenuItem
      Caption = #24110#21161
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 224
    Top = 96
    object N32: TMenuItem
      Caption = #22797#21046
    end
    object N33: TMenuItem
      Caption = #31896#36148
    end
    object N34: TMenuItem
      Caption = #21098#20999
    end
    object N35: TMenuItem
      Caption = #21024#38500
    end
    object N36: TMenuItem
      Caption = #21047#26032
    end
  end
  object PopupMenu2: TPopupMenu
    Left = 336
    Top = 112
    object N37: TMenuItem
      Caption = #25490#21015#22270#26631
    end
    object N38: TMenuItem
      Caption = #21047#26032
    end
  end
  object MainMenu2: TMainMenu
    Left = 112
    Top = 72
    object File1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
      end
      object Open1: TMenuItem
        Caption = '&Open...'
      end
      object Save1: TMenuItem
        Caption = '&Save'
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As...'
      end
      object N40: TMenuItem
        Caption = '-'
      end
      object Print1: TMenuItem
        Caption = '&Print...'
      end
      object PrintSetup1: TMenuItem
        Caption = 'P&rint Setup...'
      end
      object N39: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
      end
    end
    object File2: TMenuItem
      Caption = '&File'
      object New2: TMenuItem
        Caption = '&New'
        ShortCut = 16462
      end
      object Open2: TMenuItem
        Caption = '&Open'
        ShortCut = 16463
      end
      object Close1: TMenuItem
        Caption = '&Close'
      end
      object N46: TMenuItem
        Caption = '-'
      end
      object Save2: TMenuItem
        Caption = '&Save'
        ShortCut = 16467
      end
      object SaveAs2: TMenuItem
        Caption = 'Save &As...'
      end
      object N45: TMenuItem
        Caption = '-'
      end
      object Print2: TMenuItem
        Caption = '&Print'
        ShortCut = 16464
      end
      object PrintSetup2: TMenuItem
        Caption = 'Prin&t Setup...'
      end
      object N44: TMenuItem
        Caption = '-'
      end
      object Exit2: TMenuItem
        Caption = 'E&xit'
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      object Undo1: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
      end
      object Repeatcommand1: TMenuItem
        Caption = '&Repeat <command>'
      end
      object N43: TMenuItem
        Caption = '-'
      end
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
      end
      object PasteSpecial1: TMenuItem
        Caption = 'Paste &Special...'
      end
      object N42: TMenuItem
        Caption = '-'
      end
      object Find1: TMenuItem
        Caption = '&Find...'
      end
      object Replace1: TMenuItem
        Caption = 'R&eplace...'
      end
      object GoTo1: TMenuItem
        Caption = '&Go To...'
      end
      object N41: TMenuItem
        Caption = '-'
      end
      object Links1: TMenuItem
        Caption = 'Lin&ks...'
      end
      object Object1: TMenuItem
        Caption = '&Object'
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      object NewWindow1: TMenuItem
        Caption = '&New Window'
      end
      object ile1: TMenuItem
        Caption = '&Tile'
      end
      object Cascade1: TMenuItem
        Caption = '&Cascade'
      end
      object ArrangeAll1: TMenuItem
        Caption = '&Arrange All'
      end
      object N47: TMenuItem
        Caption = '-'
      end
      object Hide1: TMenuItem
        Caption = '&Hide'
      end
      object Show1: TMenuItem
        Caption = '&Show...'
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Contents1: TMenuItem
        Caption = '&Contents'
      end
      object SearchforHelpOn1: TMenuItem
        Caption = '&Search for Help On...'
      end
      object HowtoUseHelp1: TMenuItem
        Caption = '&How to Use Help'
      end
      object About1: TMenuItem
        Caption = '&About...'
      end
    end
  end
end

						