unit1.dfm

精彩编程百例1~25例

object Form1: TForm1
  Left = 209
  Top = 122
  Width = 499
  Height = 301
  Caption = #28176#21464#31383#20307
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label3: TLabel
    Left = 20
    Top = 32
    Width = 60
    Height = 13
    Caption = #24555#24930#35843#25972'    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 20
    Top = 80
    Width = 60
    Height = 13
    Caption = #35843#25972#39068#33394'    '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 20
    Top = 128
    Width = 57
    Height = 13
    Caption = #35843#25972#39068#33394'   '
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object SpinEdit1: TSpinEdit
    Left = 88
    Top = 80
    Width = 73
    Height = 22
    MaxValue = 140
    MinValue = 0
    TabOrder = 0
    Value = 0
    OnChange = SpinEdit1Change
    OnClick = SpinEdit1Click
  end
  object SpinEdit2: TSpinEdit
    Left = 88
    Top = 128
    Width = 73
    Height = 22
    MaxValue = 160
    MinValue = 0
    TabOrder = 1
    Value = 0
    OnChange = SpinEdit2Change
    OnClick = SpinEdit2Click
  end
  object Button1: TButton
    Left = 32
    Top = 192
    Width = 65
    Height = 25
    Caption = #24320#22987
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 32
    Top = 232
    Width = 65
    Height = 25
    Caption = #20572#27490
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object SpinEdit3: TSpinEdit
    Left = 88
    Top = 32
    Width = 73
    Height = 22
    MaxValue = 1000
    MinValue = 0
    TabOrder = 4
    Value = 100
    OnChange = SpinEdit3Change
    OnClick = SpinEdit3Click
  end
  object Panel1: TPanel
    Left = 220
    Top = 32
    Width = 250
    Height = 200
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    TabOrder = 5
    object Image1: TImage
      Left = 2
      Top = 2
      Width = 242
      Height = 192
      Align = alClient
      Picture.Data = {
        0A544A504547496D6167651A5E0000FFD8FFE000104A46494600010201004800
        480000FFE1123F4578696600004D4D002A000000080007011200030000000100
        010000011A00050000000100000062011B0005000000010000006A0128000300
        0000010002000001310002000000140000007201320002000000140000008687
        690004000000010000009C000000C80000004800000001000000480000000141
        646F62652050686F746F73686F7020372E3000323030333A30343A3134203130
        3A35313A34360000000003A001000300000001FFFF0000A00200040000000100
        0000F8A003000400000001000000BA0000000000000006010300030000000100
        060000011A00050000000100000116011B0005000000010000011E0128000300
        0000010002000002010004000000010000012602020004000000010000111100
        00000000000048000000010000004800000001FFD8FFE000104A464946000102
        01004800480000FFED000C41646F62655F434D0002FFEE000E41646F62650064
        8000000001FFDB0084000C08080809080C09090C110B0A0B11150F0C0C0F1518
        131315131318110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
        0C0C0C0C0C0C0C0C0C0C010D0B0B0D0E0D100E0E10140E0E0E14140E0E0E0E14
        110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C
        0C0C0C0C0C0C0C0C0C0C0CFFC00011080060008003012200021101031101FFDD
        00040008FFC4013F000001050101010101010000000000000003000102040506
        0708090A0B010001050101010101010000000000000001000203040506070809
        0A0B1000010401030204020507060805030C3301000211030421123105415161
        1322718132061491A1B14223241552C16233347282D14307259253F0E1F16373
        3516A2B283264493546445C2A3743617D255E265F2B384C3D375E3F3462794A4
        85B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F637475767778797A7
        B7C7D7E7F7110002020102040403040506070706053501000211032131120441
        51617122130532819114A1B14223C152D1F0332462E1728292435315637334F1
        250616A2B283072635C2D2449354A317644555367465E2F2B384C3D375E3F346
        94A485B495C4D4E4F4A5B5C5D5E5F55666768696A6B6C6D6E6F6273747576777
        8797A7B7C7FFDA000C03010002110311003F00F554C5CD04024027807BA75959
        76387517B0F6A9A5867892E6BBDBF24F8438891D85ACC993800357669D424012
        4C0F141766E1B0C3AFAC1F0DC27F2ACBB3D37377D9531D3C6EEF1F2DBB93ED70
        20B581AD79105B1027C607B548308EA4B5CF37DABFE749D765B55826B7B5E3F9
        241FC8A6B0F631E37B9AD89DB2EF13F2297A20BBD32DD40982E3B63C52F647EF
        7E091CD780FB7FF4175ECCAC6A8C596B187C1CE00A837A860B8C0BD93FD60165
        B5AD635A6B6B431FA0734479FBB45376E132410D21AED782789908FB31EE56FD
        ECEFA57948FE2EC020891C27588186B90D9AC69FCDB9CD067C366D581D6FA8FD
        6BA739C3A4E2E3E6E16386B2DAADC88BACB6C6B9FE9B77DADF4ECA76EFF43F9D
        B2B7FF00991CE1180B32D3C99619CCCD463AF9FF00E82F70FB2BAC6E7B834789
        309ABB6BB582CA9C1EC3C39A642E37EAAF5B7F59C4BDD9585F60EA18768A72A8
        2088711BD8E6FA9FA5AFF97559F416E0C50FFD20637DDC99009FEB270C5122F8
        BF041CD312AE01E57FB5D57DF457FCE58D67F59C07E54CDCBC5790D65CC7177D
        101C093F0D5667D9DCC801AD6CE82081E687978EE38B6BA1B2C69B1A64482CFD
        2077FD1446181A1C5BF544B3CC027836E9FDAEE24A35BB7B1AF88DC018F8A928
        1B2FFFD0F55597D5A065E296887BF7873BC5806ED9FE72D4597D5F4C9C377F2A
        C6FDEDFF00CC54B83F9C1E52FF00A1261E67F9B3FDE87FD38B5FD56515136383
        1A4004BDDEC9FA3BA085263EC6B8381100004733A7FD158DD4F171B272DEFBEE
        B5AFA832BA6964FB8BC827D2865DEFD8DFA3B3F4D67A7FA4AD5BC0FB2B431BD3
        DAF18E59EFDED2D2D700D757BA7F3AD6D9FCD7D3A9451E6CCB31C7EDFA388E3E
        2BF57A3D265C3FBBC71613CA88E313E2D40E211D9BCDD19B0EA27748E7E1A84E
        1EEF537988236EDF2FEB27D8C701B5DB4BDB2C1CF1CBB54CC6EE97B64B7700D1
        E47DBE3F47F395BB1AB5FD228007C35ECB4C358C101AD33AF24FFDF7949E4D85
        D2743F45B3A030A6D66DB2D024ED6F7F305476FE8A81E3FDC958BFE5FDE469FB
        BA7F0FD5B22CBF7B1DB08F4C40E4EBE2A8F4FE97FB2F1CE161D5BF1839F606D9
        0F787DAE758E758EB0B3D5F7B9DB2D759BFD3FD159FCDFAAAED8DDAC2E1B9A5A
        E869266758D127D6435E4CCB0020EBAFF27DDB947931C7244465F466C79BDB27
        841F1FE5FE0B43028EACCCEEA5919D4518F8F7D95FD945266CB3635CC7E5663E
        1ADF5ECAFD266CD8CD9E9FFD72DBB014DB58300EED5B25D3A051ADBBAA0F3249
        30409D3FAAD6FF00DF93A0042222361A227978A5646EBEF7FEF150B7D47B0EC7
        43F422783B4EFD8FFE43FF00393B40353ACF73835D0358D27BFF00653B7909E3
        CB64097169AEA3F374F1321B938D5DED1B458D0769EC7BB51952E8DFF26D1F03
        FF0054E57555C8009C80D84886F6291963848EF28C49FA87FFD1F55547A9BEB6
        1C72F607CDBB5B2018241D7557965F56707E4E2D4396175CEF801B1BFE739EA4
        C22E63C8FF00D162E60D633E711FF39AD978F4E4D6D6FD0B2B7B6C659B1A5D2C
        77A8C6FBBF337A546363D04967A84B9AD69DCE07460D8CEC377F59EA6A734FEE
        3BFCEFF629B8237C55AF76B89CAB86EA3D9816B24C0D099D52D81DD8786AA535
        4FD17476D7BA4E35910D6907C4994EB3D8ADE11E0C4D7E2014E184190003320E
        9D9324922A3D96804EE3A93DFE296D6F82A397D56C6653B03A761DBD53A83181
        F6D3539B5D75076B57DB732E3E950FB9BFA4AE86FAB91E97E93D251BAEFADF53
        03BF6151913CB28CF01E3FF6271AAAFF00E9A69C911A5AF8E1911623A3A04480
        0EA1A200F24F03C1676275BAAECFFD99978D7F4DEA2E0E7538D941BFA66B3DD6
        3F1326875B8F91B1BF4EB63FD45A4D697186F3F7222408B05698709AAA5A0782
        77DB4D551B1EC71D824C3A24A97A36797F9C10EEA2CB6970641772D05C06AD21
        D1FF0045106248B3A5F75112009035AD347571286E3E357534101A38264C9F73
        B5456B9AE6873482D22411A820AC3EB79F8A333A7E2BF28B7F686F6D58C1DB05
        9B3658F7FABED6FB3F9A7D3EA7F86FD0FE915BFB5D7D27A532DC826C32194535
        4173DD63B6E2E263B7DB5FE7574D7F42AFF0B6FA75FA962CEF7A52CF2C6612D0
        719C87E594A5FA21BF1881014456C00ECFFFD2F5558D9449EAB74FE6D4C03E12
        E72D958F9836F557FF002E869FB9CE0A6E5FE697F77F6B5F9AF961FDFF00FB99
        31493E9E2968A66BA9BB27DE091DA345302823F381F323FB943E0B3BAA757187
        6D3838957DB3AB667F45C3698F6CED76565BDBFD1F0AAFCFB3FC27F81FCFF4C4
        8802C921746C9A0017503698DC64C09743840FDE71D3DAD58DD63AE62D74DD87
        D2325995D66E69AF07131B6645A2D21BB2CBD9AE3E3E3B377AB75D97B2AAE9FD
        FF00A0ACD1F539F98C63FEB366D9D55E1C1FF636FE8309A411631BF64A76FDAB
        D270DBBF31F6FA8CFF0004B5474FC6E918B6BBA1F4CC765CF2D9A690CC66BCCC
        6EB6CAEBFF0006D3FE8EC501CA7A36238469C55F46AF44FAB75617407F4BEA04
        655B9C2CB3AA5834175D91AE63B7D6DA5FB1DBBD2AFE859E8EC57BA4F47E9FD1
        B14E1F4EADD4E36F73DB517BDED6976AF6D5EB3ECF4ABDDEFF004ABFD1EF52C5
        3D5ACC5B7ED8DC7C7CA25C29F45CFBEB6B63F44EB3D4661BEC76EFE718DF4907
        A71FAC2DB9D5F536E1D94C12CC8C63631C4CE8D761DCDB9ADF6FE7FDB546CCC3
        AFFD5DE9FD7B1995656EAEFC777A989974B8B2EA2CED6D16B7FEA3E87F995AC4