unit1.dfm

给你4 个随机数

object Form1: TForm1
  Left = 270
  Top = 112
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 
    #28216#25103'24'#28857'                                                           ' +
    ' QQ:406582296'
  ClientHeight = 311
  ClientWidth = 394
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 4
    Width = 61
    Height = 197
  end
  object Bevel2: TBevel
    Left = 65
    Top = 3
    Width = 209
    Height = 197
  end
  object LbShow: TLabel
    Left = 109
    Top = 207
    Width = 4
    Height = 19
    Color = clBtnHighlight
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Times New Roman'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Visible = False
  end
  object LbDaTi: TLabel
    Left = 78
    Top = 11
    Width = 187
    Height = 13
    AutoSize = False
    Caption = #26681#25454#24038#36793#30340#22235#20010#25968#35745#31639#24471'24 '#65306
  end
  object LbTiMu: TLabel
    Left = 16
    Top = 15
    Width = 33
    Height = 13
    AutoSize = False
    Caption = #39064#30446
  end
  object Bevel3: TBevel
    Left = 277
    Top = 3
    Width = 114
    Height = 302
  end
  object LbDaAn: TLabel
    Left = 285
    Top = 8
    Width = 3
    Height = 13
  end
  object Bevel4: TBevel
    Left = 108
    Top = 206
    Width = 165
    Height = 99
  end
  object Edit1: TEdit
    Left = 8
    Top = 39
    Width = 43
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvNone
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 0
  end
  object Edit2: TEdit
    Left = 8
    Top = 67
    Width = 43
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvNone
    Ctl3D = True
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentCtl3D = False
    TabOrder = 1
  end
  object Edit3: TEdit
    Left = 8
    Top = 97
    Width = 43
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvNone
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 2
  end
  object Edit4: TEdit
    Left = 8
    Top = 125
    Width = 43
    Height = 21
    BevelInner = bvNone
    BevelKind = bkFlat
    BevelOuter = bvNone
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 3
  end
  object Button1: TButton
    Left = 552
    Top = 8
    Width = 97
    Height = 17
    Caption = #26174#31034#22235#20010#25968#30340#25152#26377#25490#21015
    TabOrder = 4
    Visible = False
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 608
    Top = 64
    Width = 9
    Height = 153
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 6
    Visible = False
  end
  object MmList1: TMemo
    Left = 283
    Top = 8
    Width = 100
    Height = 284
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 7
    Visible = False
  end
  object Button2: TButton
    Left = 544
    Top = 48
    Width = 49
    Height = 17
    Caption = 'Button2'
    TabOrder = 8
    Visible = False
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 440
    Top = -56
    Width = 41
    Height = 25
    Caption = #26174#31034#31572#26696
    TabOrder = 9
    OnClick = Button3Click
  end
  object BtClose: TButton
    Left = 2
    Top = 271
    Width = 50
    Height = 33
    Caption = #36864#20986
    TabOrder = 10
    OnClick = BtCloseClick
  end
  object bt7: TButton
    Left = 73
    Top = 60
    Width = 33
    Height = 33
    Caption = '7'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 11
    OnClick = BTnToBTn9Click
  end
  object bt8: TButton
    Left = 105
    Top = 60
    Width = 33
    Height = 33
    Caption = '8'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 12
    OnClick = BTnToBTn9Click
  end
  object bt9: TButton
    Left = 137
    Top = 60
    Width = 33
    Height = 33
    Caption = '9'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 13
    OnClick = BTnToBTn9Click
  end
  object bt4: TButton
    Left = 73
    Top = 92
    Width = 33
    Height = 33
    Caption = '4'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 14
    OnClick = BTnToBTn9Click
  end
  object bt5: TButton
    Left = 105
    Top = 92
    Width = 33
    Height = 33
    Caption = '5'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 15
    OnClick = BTnToBTn9Click
  end
  object bt6: TButton
    Left = 137
    Top = 92
    Width = 33
    Height = 33
    Caption = '6'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 16
    OnClick = BTnToBTn9Click
  end
  object bt1: TButton
    Left = 73
    Top = 124
    Width = 33
    Height = 33
    Caption = '1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 17
    OnClick = BTnToBTn9Click
  end
  object bt2: TButton
    Left = 105
    Top = 124
    Width = 33
    Height = 33
    Caption = '2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 18
    OnClick = BTnToBTn9Click
  end
  object bt3: TButton
    Left = 137
    Top = 124
    Width = 33
    Height = 33
    Caption = '3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 19
    OnClick = BTnToBTn9Click
  end
  object bt0: TButton
    Left = 73
    Top = 156
    Width = 33
    Height = 33
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 20
    OnClick = BTnToBTn9Click
  end
  object btOK: TButton
    Left = 202
    Top = 126
    Width = 63
    Height = 63
    Caption = #30830#23450
    TabOrder = 21
    OnClick = btOKClick
  end
  object EdLCD: TEdit
    Left = 73
    Top = 30
    Width = 191
    Height = 27
    AutoSize = False
    BevelKind = bkTile
    BevelOuter = bvNone
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = '@'#24188#22278
    Font.Style = []
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentFont = False
    TabOrder = 5
  end
  object btjia: TButton
    Left = 169
    Top = 60
    Width = 33
    Height = 33
    Caption = '+'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 22
    OnClick = BTnToBTn9Click
  end
  object btJian: TButton
    Left = 169
    Top = 92
    Width = 33
    Height = 33
    Caption = '-'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 23
    OnClick = BTnToBTn9Click
  end
  object btChu: TButton
    Left = 170
    Top = 157
    Width = 32
    Height = 32
    Caption = '/'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 24
    OnClick = BTnToBTn9Click
  end
  object btCheng: TButton
    Left = 169
    Top = 124
    Width = 33
    Height = 33
    Caption = '*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 25
    OnClick = BTnToBTn9Click
  end
  object EdNumber: TEdit
    Left = 536
    Top = 88
    Width = 49
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    TabOrder = 26
    Text = '24'
    Visible = False
  end
  object btClr: TButton
    Left = 202
    Top = 92
    Width = 63
    Height = 33
    Caption = #28165#31354
    TabOrder = 27
    OnClick = btClrClick
  end
  object btChongLei: TButton
    Left = 1
    Top = 206
    Width = 104
    Height = 32
    Caption = #20877#26469#19968#30424#21543
    TabOrder = 28
    OnClick = btChongLeiClick
  end
  object btShow: TButton
    Left = 1
    Top = 238
    Width = 104
    Height = 32
    Caption = '^ v ^ '#32473#25105#30475#31572#26696#21543
    TabOrder = 29
    OnClick = btShowClick
  end
  object BtAbout: TButton
    Left = 53
    Top = 271
    Width = 52
    Height = 33
    Caption = #35828#26126
    TabOrder = 30
    OnClick = BtAboutClick
  end
  object MmList2: TMemo
    Left = 648
    Top = 32
    Width = 9
    Height = 225
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ScrollBars = ssBoth
    TabOrder = 31
    Visible = False
  end
  object BtnLeft: TButton
    Left = 105
    Top = 156
    Width = 33
    Height = 33
    Caption = '('
    TabOrder = 32
    OnClick = BTnToBTn9Click
  end
  object BtnRight: TButton
    Left = 137
    Top = 156
    Width = 33
    Height = 33
    Caption = ')'
    TabOrder = 33
    OnClick = BTnToBTn9Click
  end
  object btnBackSpace: TButton
    Left = 202
    Top = 60
    Width = 63
    Height = 31
    Caption = #36864#26684
    TabOrder = 34
    OnClick = btnBackSpaceClick
  end
end