frist.dfm

实现加减乘除的简单计算器,可以将0显示在输入的右面.

    TabOrder = 2
    OnClick = AllClick
  end
  object add: TButton
    Tag = 1
    Left = 312
    Top = 40
    Width = 49
    Height = 49
    Caption = #21152
    TabOrder = 3
    OnClick = AllClick
  end
  object cut: TButton
    Tag = 2
    Left = 312
    Top = 104
    Width = 49
    Height = 49
    Caption = #20943
    TabOrder = 4
    OnClick = AllClick
  end
  object cu: TButton
    Tag = 4
    Left = 312
    Top = 224
    Width = 49
    Height = 49
    Hint = #38500#25968#19981#35201#20026#38646#21908' !'
    Caption = #38500
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = AllClick
  end
  object clear: TButton
    Left = 24
    Top = 232
    Width = 41
    Height = 41
    Caption = 'clear'
    TabOrder = 1
    OnClick = clearClick
  end
  object answer: TButton
    Left = 168
    Top = 232
    Width = 41
    Height = 41
    Caption = '='
    TabOrder = 0
    OnClick = answerClick
  end
  object n1: TButton
    Left = 24
    Top = 88
    Width = 41
    Height = 41
    Caption = '1'
    TabOrder = 6
    OnClick = holeClick
  end
  object n2: TButton
    Left = 96
    Top = 88
    Width = 41
    Height = 41
    Caption = '2'
    TabOrder = 7
    OnClick = holeClick
  end
  object n3: TButton
    Left = 168
    Top = 88
    Width = 41
    Height = 41
    Caption = '3'
    TabOrder = 8
    OnClick = holeClick
  end
  object n6: TButton
    Left = 168
    Top = 136
    Width = 41
    Height = 41
    Caption = '6'
    TabOrder = 9
    OnClick = holeClick
  end
  object n9: TButton
    Left = 168
    Top = 184
    Width = 41
    Height = 41
    Caption = '9'
    TabOrder = 10
    OnClick = holeClick
  end
  object n5: TButton
    Left = 96
    Top = 136
    Width = 41
    Height = 41
    Caption = '5'
    TabOrder = 11
    OnClick = holeClick
  end
  object n4: TButton
    Left = 24
    Top = 136
    Width = 41
    Height = 41
    Caption = '4'
    TabOrder = 12
    OnClick = holeClick
  end
  object n8: TButton
    Left = 96
    Top = 184
    Width = 41
    Height = 41
    Caption = '8'
    TabOrder = 13
    OnClick = holeClick
  end
  object n7: TButton
    Left = 24
    Top = 184
    Width = 41
    Height = 41
    Caption = '7'
    TabOrder = 14
    OnClick = holeClick
  end
  object n0: TButton
    Left = 96
    Top = 232
    Width = 41
    Height = 41
    Caption = '0'
    TabOrder = 15
    OnClick = holeClick
  end
  object wei: TButton
    Left = 240
    Top = 88
    Width = 41
    Height = 41
    Caption = #65291#65295#65293
    TabOrder = 16
    OnClick = weiClick
  end
  object sqrt: TButton
    Left = 240
    Top = 136
    Width = 41
    Height = 41
    Caption = 'sqrt'
    TabOrder = 17
  end
  object sqr: TButton
    Left = 240
    Top = 184
    Width = 41
    Height = 41
    Caption = 'sqr'
    TabOrder = 18
    OnClick = sqrClick
  end
  object jin: TButton
    Left = 240
    Top = 232
    Width = 41
    Height = 41
    Caption = '.'
    TabOrder = 19
    OnClick = jinClick
  end
  object MainMenu1: TMainMenu
    Left = 280
    Top = 8
    object N10: TMenuItem
      Caption = #32534#36753
      object N13: TMenuItem
        Caption = #22797#21046
        ShortCut = 16451
      end
      object N14: TMenuItem
        Caption = #31896#36148
        ShortCut = 16470
      end
    end
    object N11: TMenuItem
      Caption = #26597#30475
      object N15: TMenuItem
        Caption = #26631#20934#22411
        ShortCut = 84
      end
      object N16: TMenuItem
        Caption = #31185#23398#22411
        ShortCut = 83
      end
      object N17: TMenuItem
        Caption = #25968#23398#20998#32452
        ShortCut = 73
      end
    end
    object N12: TMenuItem
      Caption = #24110#21161
      object N18: TMenuItem
        Caption = #20851#20110#20027#39064
        ShortCut = 72
      end
      object N19: TMenuItem
        Caption = #20851#20110#35745#31639#22120
        ShortCut = 65
      end
    end
  end
end