unit1.~dfm

简单的计算器

object Form1: TForm1
  Left = 469
  Top = 161
  Width = 226
  Height = 341
  Caption = #35745#31639#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = RestarClick
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object ShowE: TEdit
    Left = 7
    Top = 16
    Width = 194
    Height = 21
    TabStop = False
    AutoSelect = False
    BevelEdges = [beTop, beRight, beBottom]
    BiDiMode = bdRightToLeft
    ParentBiDiMode = False
    ReadOnly = True
    TabOrder = 0
    OnKeyDown = FormKeyDown
  end
  object NM3: TButton
    Left = 110
    Top = 202
    Width = 40
    Height = 39
    Caption = '3'
    TabOrder = 1
    OnClick = NM3Click
    OnKeyDown = FormKeyDown
  end
  object NM2: TButton
    Left = 62
    Top = 202
    Width = 40
    Height = 39
    Caption = '2'
    TabOrder = 2
    OnClick = NM2Click
    OnKeyDown = FormKeyDown
  end
  object NM1: TButton
    Left = 14
    Top = 202
    Width = 40
    Height = 39
    Caption = '1'
    TabOrder = 3
    OnClick = NM1Click
    OnKeyDown = FormKeyDown
  end
  object NM6: TButton
    Left = 110
    Top = 154
    Width = 40
    Height = 39
    Caption = '6'
    TabOrder = 4
    OnClick = NM6Click
    OnKeyDown = FormKeyDown
  end
  object NM5: TButton
    Left = 62
    Top = 154
    Width = 40
    Height = 39
    Caption = '5'
    TabOrder = 5
    OnClick = NM5Click
    OnKeyDown = FormKeyDown
  end
  object NM4: TButton
    Left = 14
    Top = 154
    Width = 40
    Height = 39
    Caption = '4'
    TabOrder = 6
    OnClick = NM4Click
    OnKeyDown = FormKeyDown
  end
  object NM9: TButton
    Left = 110
    Top = 106
    Width = 40
    Height = 39
    Caption = '9'
    TabOrder = 7
    OnClick = NM9Click
    OnKeyDown = FormKeyDown
  end
  object NM8: TButton
    Left = 62
    Top = 106
    Width = 40
    Height = 39
    Caption = '8'
    TabOrder = 8
    OnClick = NM8Click
    OnKeyDown = FormKeyDown
  end
  object NM7: TButton
    Left = 14
    Top = 106
    Width = 40
    Height = 39
    Caption = '7'
    TabOrder = 9
    OnClick = NM7Click
    OnKeyDown = FormKeyDown
  end
  object Point: TButton
    Left = 110
    Top = 250
    Width = 41
    Height = 33
    Caption = '.'
    TabOrder = 10
    OnClick = PointClick
    OnKeyDown = FormKeyDown
  end
  object NM0: TButton
    Left = 14
    Top = 250
    Width = 41
    Height = 33
    Caption = '0'
    TabOrder = 11
    OnClick = NM0Click
    OnKeyDown = FormKeyDown
  end
  object Add: TButton
    Left = 158
    Top = 106
    Width = 41
    Height = 89
    Caption = '+'
    TabOrder = 12
    OnClick = AddClick
    OnKeyDown = FormKeyDown
  end
  object Result: TButton
    Left = 158
    Top = 202
    Width = 41
    Height = 81
    Caption = #65309
    TabOrder = 13
    OnClick = ResultClick
    OnKeyDown = FormKeyDown
  end
  object Reduce: TButton
    Left = 158
    Top = 58
    Width = 40
    Height = 38
    Caption = #65293
    TabOrder = 14
    OnClick = ReduceClick
    OnKeyDown = FormKeyDown
  end
  object Divide: TButton
    Left = 62
    Top = 58
    Width = 40
    Height = 38
    Caption = '/'
    TabOrder = 15
    OnClick = DivideClick
    OnKeyDown = FormKeyDown
  end
  object Multiply: TButton
    Left = 110
    Top = 58
    Width = 40
    Height = 38
    Caption = #215
    TabOrder = 16
    OnClick = MultiplyClick
    OnKeyDown = FormKeyDown
  end
  object Restar: TButton
    Left = 14
    Top = 58
    Width = 40
    Height = 38
    Caption = 'Restar'
    TabOrder = 17
    OnClick = RestarClick
    OnKeyDown = FormKeyDown
  end
  object Negative: TButton
    Left = 61
    Top = 250
    Width = 40
    Height = 33
    Caption = '+/-'
    TabOrder = 18
    OnClick = NegativeClick
    OnKeyDown = FormKeyDown
  end
  object MainMenu1: TMainMenu
    Top = 273
    object N1: TMenuItem
      Caption = #32534#36753'(&E)'
      object C1: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = C1Click
      end
    end
    object N2: TMenuItem
      Caption = #26597#30475'(&V)'
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object N3: TMenuItem
        Caption = #24110#21161'(&H)'
      end
      object A1: TMenuItem
        Caption = #20851#20110'(&A)'
      end
    end
  end
  object XPManifest1: TXPManifest
    Left = 32
    Top = 273
  end
end