unit1.~dfm

完成Windows程序中计算器中的所有功能,使用类似Windows计算器的图形界面； （2） 使用可视化方法设计

object Form1: TForm1
  Left = 295
  Top = 220
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #35745#31639#22120
  ClientHeight = 195
  ClientWidth = 257
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton14: TSpeedButton
    Left = 8
    Top = 66
    Width = 42
    Height = 26
  end
  object SpeedButton15: TSpeedButton
    Left = 58
    Top = 66
    Width = 42
    Height = 26
  end
  object SpeedButton16: TSpeedButton
    Left = 108
    Top = 66
    Width = 42
    Height = 26
  end
  object SpeedButton17: TSpeedButton
    Left = 158
    Top = 66
    Width = 42
    Height = 26
  end
  object SpeedButton18: TSpeedButton
    Left = 208
    Top = 66
    Width = 42
    Height = 26
  end
  object SpeedButton19: TSpeedButton
    Left = 8
    Top = 104
    Width = 42
    Height = 26
  end
  object SpeedButton20: TSpeedButton
    Left = 58
    Top = 104
    Width = 42
    Height = 26
  end
  object SpeedButton21: TSpeedButton
    Left = 108
    Top = 104
    Width = 42
    Height = 26
  end
  object SpeedButton22: TSpeedButton
    Left = 158
    Top = 104
    Width = 42
    Height = 26
  end
  object SpeedButton23: TSpeedButton
    Left = 208
    Top = 104
    Width = 42
    Height = 26
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 257
    Height = 195
    Align = alClient
    BevelInner = bvRaised
    BevelOuter = bvNone
    TabOrder = 0
    object SpeedButton1: TSpeedButton
      Left = 6
      Top = 31
      Width = 74
      Height = 28
      Cursor = crHandPoint
      Caption = 'Backspace'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object SpeedButton2: TSpeedButton
      Left = 90
      Top = 31
      Width = 74
      Height = 28
      Cursor = crHandPoint
      Caption = 'CE'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 174
      Top = 31
      Width = 74
      Height = 28
      Cursor = crHandPoint
      Caption = 'C'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton3Click
    end
    object SpeedButton4: TSpeedButton
      Left = 9
      Top = 66
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '7'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton4Click
    end
    object SpeedButton5: TSpeedButton
      Left = 58
      Top = 66
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '8'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 108
      Top = 66
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '9'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton6Click
    end
    object SpeedButton7: TSpeedButton
      Left = 158
      Top = 66
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '/'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton7Click
    end
    object SpeedButton8: TSpeedButton
      Left = 208
      Top = 66
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = 'sqrt'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton8Click
    end
    object SpeedButton9: TSpeedButton
      Left = 8
      Top = 98
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '4'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton9Click
    end
    object SpeedButton10: TSpeedButton
      Left = 58
      Top = 98
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '5'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton10Click
    end
    object SpeedButton11: TSpeedButton
      Left = 108
      Top = 98
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '6'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton11Click
    end
    object SpeedButton12: TSpeedButton
      Left = 158
      Top = 98
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '*'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton12Click
    end
    object SpeedButton13: TSpeedButton
      Left = 208
      Top = 98
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '%'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton24: TSpeedButton
      Left = 8
      Top = 130
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton24Click
    end
    object SpeedButton25: TSpeedButton
      Left = 58
      Top = 130
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton25Click
    end
    object SpeedButton26: TSpeedButton
      Left = 108
      Top = 130
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '3'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton26Click
    end
    object SpeedButton27: TSpeedButton
      Left = 158
      Top = 130
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '_'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton27Click
    end
    object SpeedButton28: TSpeedButton
      Left = 208
      Top = 130
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '1/x'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton28Click
    end
    object SpeedButton29: TSpeedButton
      Left = 8
      Top = 163
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton29Click
    end
    object SpeedButton30: TSpeedButton
      Left = 58
      Top = 163
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '+/-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton30Click
    end
    object SpeedButton31: TSpeedButton
      Left = 108
      Top = 163
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton31Click
    end
    object SpeedButton32: TSpeedButton
      Left = 158
      Top = 163
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton32Click
    end
    object SpeedButton33: TSpeedButton
      Left = 208
      Top = 163
      Width = 42
      Height = 26
      Cursor = crHandPoint
      Caption = '='
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton33Click
    end
    object Edit1: TEdit
      Left = 7
      Top = 4
      Width = 244
      Height = 21
      TabOrder = 0
    end
  end
  object MainMenu1: TMainMenu
    Left = 224
    Top = 65520
    object E1: TMenuItem
      Caption = #32534#36753'(&E)'
      object c1: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = c1Click
      end
      object P1: TMenuItem
        Caption = #31896#36148'(&P)'
        ShortCut = 16470
        OnClick = P1Click
      end
    end
    object V1: TMenuItem
      Caption = #26597#30475'(&V)'
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object H2: TMenuItem
        Caption = #24110#21161#20027#39064'(&H)'
      end
      object A1: TMenuItem
        Caption = #20851#20110#35745#31639#22120'(&A)'
        OnClick = A1Click
      end
    end
  end
end