compute1.~dfm

是模仿windows中的计算器而制作的一个小程序.

      Width = 36
      Height = 25
      Caption = '6'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      TabStop = False
      OnClick = BBtn1Click
    end
    object BBtn1: TBitBtn
      Left = 43
      Top = 60
      Width = 36
      Height = 25
      Caption = '1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 6
      TabStop = False
      OnClick = BBtn1Click
    end
    object BBtn2: TBitBtn
      Left = 85
      Top = 60
      Width = 36
      Height = 25
      Caption = '2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 7
      TabStop = False
      OnClick = BBtn1Click
    end
    object BBtn3: TBitBtn
      Left = 126
      Top = 60
      Width = 36
      Height = 25
      Caption = '3'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 8
      TabStop = False
      OnClick = BBtn1Click
    end
    object BBtn0: TBitBtn
      Left = 43
      Top = 90
      Width = 36
      Height = 25
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 9
      TabStop = False
      OnClick = BBtn1Click
    end
    object BBtnZ: TBitBtn
      Tag = 1
      Left = 85
      Top = 90
      Width = 36
      Height = 25
      Caption = '+/'#65293
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 10
      TabStop = False
      OnClick = BBtnZClick
    end
    object BBtnD: TBitBtn
      Left = 126
      Top = 90
      Width = 36
      Height = 25
      Caption = '.'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      TabStop = False
      OnClick = BBtnDClick
    end
    object BBtnCh: TBitBtn
      Tag = 4
      Left = 168
      Top = 0
      Width = 36
      Height = 25
      Caption = '/'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      TabStop = False
      OnClick = BBtnJiaClick
    end
    object BBtnC: TBitBtn
      Tag = 3
      Left = 168
      Top = 30
      Width = 36
      Height = 25
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 13
      TabStop = False
      OnClick = BBtnJiaClick
    end
    object BBtnJian: TBitBtn
      Tag = 2
      Left = 168
      Top = 60
      Width = 36
      Height = 25
      Caption = #65293
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 14
      TabStop = False
      OnClick = BBtnJiaClick
    end
    object BBtnJia: TBitBtn
      Tag = 1
      Left = 168
      Top = 90
      Width = 36
      Height = 25
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 15
      TabStop = False
      OnClick = BBtnJiaClick
    end
    object BBtnDY: TBitBtn
      Tag = 5
      Left = 210
      Top = 90
      Width = 36
      Height = 25
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 16
      TabStop = False
      OnClick = BBtnDYClick
    end
    object BBtnM: TBitBtn
      Left = 2
      Top = 30
      Width = 36
      Height = 25
      Caption = 'M+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 17
      TabStop = False
    end
    object BBtnMS: TBitBtn
      Left = 2
      Top = 60
      Width = 36
      Height = 25
      Caption = 'MS'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 18
      TabStop = False
    end
    object BBtnMR: TBitBtn
      Left = 2
      Top = 90
      Width = 36
      Height = 25
      Caption = 'MR'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 19
      TabStop = False
    end
    object BBtnMC: TBitBtn
      Left = 2
      Top = 0
      Width = 36
      Height = 25
      Caption = 'MC'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 20
      TabStop = False
    end
    object BBtnSqrt: TBitBtn
      Tag = 2
      Left = 210
      Top = 0
      Width = 36
      Height = 25
      Caption = 'sqrt'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 21
      TabStop = False
      OnClick = BBtnSqrtClick
    end
    object BBtnBF: TBitBtn
      Tag = 3
      Left = 210
      Top = 30
      Width = 36
      Height = 25
      Caption = '%'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 22
      TabStop = False
      OnClick = BBtnSqrtClick
    end
    object BBtnFZ: TBitBtn
      Tag = 4
      Left = 210
      Top = 60
      Width = 36
      Height = 25
      Caption = '1/x'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 23
      TabStop = False
      OnClick = BBtnSqrtClick
    end
  end
  object Panel3: TPanel
    Left = 40
    Top = 30
    Width = 73
    Height = 26
    BevelOuter = bvNone
    Caption = 'Panel3'
    TabOrder = 5
    object BBtnBack: TBitBtn
      Left = 6
      Top = 1
      Width = 64
      Height = 25
      Caption = 'Backspace'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      TabStop = False
      OnClick = BBtnBackClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 65528
    object E1: TMenuItem
      Caption = #32534#36753'(&E)'
      object C1: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
      end
      object P1: TMenuItem
        Caption = #31896#36148'(&P)'
        Enabled = False
        ShortCut = 16470
      end
    end
    object V1: TMenuItem
      Caption = #26597#30475'(&V)'
      object N1: TMenuItem
        AutoCheck = True
        Caption = #26631#20934#22411'(&T)'
        RadioItem = True
      end
      object N2: TMenuItem
        AutoCheck = True
        Caption = #25968#25454#22411'(&S)'
        RadioItem = True
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object I1: TMenuItem
        AutoCheck = True
        Caption = #25968#23383#20998#32452'(&I)'
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object H2: TMenuItem
        Caption = #24110#21161#20027#39064'(&H)'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = #20851#20110#35745#31639#22120'(&A)'
      end
    end
  end
end