unit1.dfm

Delphi编程实效百例的随书程序 这是其中的界面操作部分

object Form1: TForm1
  Left = 201
  Top = 113
  Width = 548
  Height = 380
  Caption = 'Form1'
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 328
    Top = 248
    Width = 89
    Height = 20
    AutoSize = False
    Caption = #35843#25972#39068#33394'     '
    Color = clCream
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label2: TLabel
    Left = 328
    Top = 280
    Width = 89
    Height = 20
    AutoSize = False
    Caption = #35843#25972#39068#33394'     '
    Color = clCream
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object Label3: TLabel
    Left = 328
    Top = 208
    Width = 89
    Height = 20
    AutoSize = False
    Caption = #24555#24930#35843#25972'     '
    Color = clCream
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object SpinEdit1: TSpinEdit
    Left = 432
    Top = 248
    Width = 105
    Height = 22
    MaxValue = 140
    MinValue = 0
    TabOrder = 0
    Value = 0
    OnChange = SpinEdit1Change
    OnClick = SpinEdit1Click
  end
  object SpinEdit2: TSpinEdit
    Left = 432
    Top = 280
    Width = 105
    Height = 22
    MaxValue = 160
    MinValue = 0
    TabOrder = 1
    Value = 0
    OnChange = SpinEdit2Change
    OnClick = SpinEdit2Click
  end
  object Button1: TButton
    Left = 320
    Top = 320
    Width = 105
    Height = 25
    Caption = #24320#22987
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 432
    Top = 320
    Width = 105
    Height = 25
    Caption = #20572#27490
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button2Click
  end
  object SpinEdit3: TSpinEdit
    Left = 432
    Top = 208
    Width = 105
    Height = 22
    MaxValue = 1000
    MinValue = 0
    TabOrder = 4
    Value = 100
    OnChange = SpinEdit3Change
    OnClick = SpinEdit3Click
  end
  object Panel1: TPanel
    Left = 24
    Top = 32
    Width = 233
    Height = 209
    BevelInner = bvRaised
    BevelOuter = bvLowered
    BorderStyle = bsSingle
    TabOrder = 5
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 233
      Height = 209
      Picture.Data = {
        0A544A504547496D6167652DA40000FFD8FFE000104A46494600010201004800
        480000FFED01B850686F746F73686F7020332E30003842494D03E90000000000
        7800030000004800480000000002DA0228FFE1FFE102F902450347052803FC00
        020000004800480000000002D802280001000000640000000100030303000000
        01270F0001000100000000000000000000000060000019019000000000000000
        000000000000000000000000000000000000000000000000003842494D03ED00
        0000000010004800000001000100480000000100013842494D03F30000000000
        0800000000000000003842494D271000000000000A0001000000000000000238
        42494D03F5000000000048002F66660001006C66660006000000000001002F66
        66000100A1999A0006000000000001003200000001005A000000060000000000
        01003500000001002D000000060000000000013842494D03F800000000007000
        00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF03E800000000FFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFF03E800003842494D04060000000000020004FFEE00
        0E41646F626500640000000001FFDB0084000604040405040605050609060506
        090B080606080B0C0A0A0B0A0A0C100C0C0C0C0C0C100C0C0C0C0C0C0C0C0C0C
        0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C010707070D0C0D18101018140E0E
        0E14140E0E0E0E14110C0C0C0C0C11110C0C0C0C0C0C110C0C0C0C0C0C0C0C0C
        0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0CFFC0001108012C01C303011100
        021101031101FFC401A200000007010101010100000000000000000405030206
        01000708090A0B01000202030101010101000000000000000100020304050607
        08090A0B10000201030302040206070304020602730102031104000521123141
        51061361227181143291A10715B14223C152D1E1331662F0247282F125433453
        92A2B26373C235442793A3B33617546474C3D2E2082683090A181984944546A4
        B456D355281AF2E3F3C4D4E4F465758595A5B5C5D5E5F566768696A6B6C6D6E6
        F637475767778797A7B7C7D7E7F738485868788898A8B8C8D8E8F82939495969
        798999A9B9C9D9E9F92A3A4A5A6A7A8A9AAABACADAEAFA110002020102030505
        040506040803036D0100021103042112314105511361220671819132A1B1F014
        C1D1E1234215526272F1332434438216925325A263B2C20773D235E244831754
        9308090A18192636451A2764745537F2A3B3C32829D3E3F38494A4B4C4D4E4F4
        65758595A5B5C5D5E5F5465666768696A6B6C6D6E6F6475767778797A7B7C7D7
        E7F738485868788898A8B8C8D8E8F839495969798999A9B9C9D9E9F92A3A4A5A
        6A7A8A9AAABACADAEAFAFFDD00040039FFDA000C03010002110311003F00F2CE
        2AEEF8ABB15762AEC55BC55C3143A98AB8E29753156B1575698AB60E2AB86E71
        4225010B5EB810D89056871A5539483B8C21428D46295F1AF3603154DAD6D800
        0F8FDF95C8B4CA489A88F7E8723CD8735333A3B6FD7BE34CC3B8A1EE30A0A1AE
        ADF90F87A9C902CA324B5D2443B8DB26D8A64B629702715548E6653B62B48A86
        E98F539121818A3D7511181535190306BF0D71BF8655A1A13F2EB8F05238084A
        6EA305CB274EF9606F087E4570A563357156B14B80A9A62AB8A102B4C516D0EB
        8A55E20694AE2869D5AB8AA8B6D8A5AC55D8AB74C55A23156B15762ADD4F8E2A
        D6FE38ABB15465A381B1EA3A602C4A30A2B90C3ED5722C2E955ED814A81F460B
        471350DA10D5A74EF89932BB4CED2D7A83435F0CA2736D8C51B25A5105054E56
        24CE909E91AFD93FE632CB453FFFD0F2CE2AEFD78ABB1577BE2AEC55D8AB78AB
        7F3C50D62976D8AB471571C55D4C557A75C508AE63860452198EF5C296892715
        5B8AAB5BB153EF80A0A6F1DC280B5EF9590D262A8B2C729209AE0AA451082BE4
        68EAC87A64E2D9136835BC941AD7254CF851115ED4D1B018B13157711C89E381
        88D92F9A20ADB74C986C054B8938A56B2B2F5C55CAE41C55734848A62AB54B83
        F0D71544723C37DBDF1421DDB91F6C592DC55D8AB6A68C0E2A9A0B7592DEA29B
        8AE46DAB8B74BBD260E4770724D968B488802BB1A60B636DFA65A3F7C56D032A
        D1C8F0C2C96E29762AB862AD118AB54C55D4C55AA62AEC55C315568EBD4751D3
        1422619DD483D86021042756A44AA29944B66928C5B6E3BD361951936630A903
        2AB509DFB53225CA01152DC271A0EBF464404941F35F0EF5CB298BFFD1F2BD71