unit1.dfm

类似计算器Calc.exe的软件

object Calc_form: TCalc_form
  Left = 180
  Top = 109
  Width = 260
  Height = 244
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 252
    Height = 190
    Align = alClient
    TabOrder = 0
    object Bevel1: TBevel
      Left = 16
      Top = 32
      Width = 25
      Height = 25
    end
    object Edit1: TEdit
      Left = 8
      Top = 3
      Width = 233
      Height = 21
      TabOrder = 0
      Text = '0.'
    end
    object Button1: TButton
      Left = 56
      Top = 128
      Width = 33
      Height = 25
      Caption = '1'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 94
      Top = 128
      Width = 33
      Height = 25
      Caption = '2'
      TabOrder = 2
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 132
      Top = 128
      Width = 33
      Height = 25
      Caption = '3'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 56
      Top = 96
      Width = 33
      Height = 25
      Caption = '4'
      TabOrder = 4
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 94
      Top = 96
      Width = 33
      Height = 25
      Caption = '5'
      TabOrder = 5
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 132
      Top = 96
      Width = 33
      Height = 25
      Caption = '6'
      TabOrder = 6
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 56
      Top = 64
      Width = 33
      Height = 25
      Caption = '7'
      TabOrder = 7
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 94
      Top = 64
      Width = 33
      Height = 25
      Caption = '8'
      TabOrder = 8
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 132
      Top = 64
      Width = 33
      Height = 25
      Caption = '9'
      TabOrder = 9
      OnClick = Button9Click
    end
    object Button10: TButton
      Left = 56
      Top = 32
      Width = 73
      Height = 25
      Caption = 'Backspace'
      TabOrder = 10
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 136
      Top = 32
      Width = 49
      Height = 25
      Caption = 'CE'
      TabOrder = 11
    end
    object Button12: TButton
      Left = 192
      Top = 32
      Width = 49
      Height = 25
      Caption = 'C'
      TabOrder = 12
      OnClick = Button12Click
    end
    object Button13: TButton
      Left = 170
      Top = 64
      Width = 33
      Height = 25
      Caption = '/'
      TabOrder = 13
      OnClick = Button13Click
    end
    object Button14: TButton
      Left = 170
      Top = 96
      Width = 33
      Height = 25
      Caption = '*'
      TabOrder = 14
      OnClick = Button14Click
    end
    object Button15: TButton
      Left = 170
      Top = 128
      Width = 33
      Height = 25
      Caption = '-'
      TabOrder = 15
      OnClick = Button15Click
    end
    object Button16: TButton
      Left = 209
      Top = 64
      Width = 33
      Height = 25
      Caption = 'sqrt'
      TabOrder = 16
      OnClick = Button16Click
    end
    object Button17: TButton
      Left = 209
      Top = 96
      Width = 33
      Height = 25
      Caption = '%'
      TabOrder = 17
    end
    object Button18: TButton
      Left = 209
      Top = 128
      Width = 33
      Height = 25
      Caption = '1/x'
      TabOrder = 18
      OnClick = Button18Click
    end
    object Button19: TButton
      Left = 56
      Top = 160
      Width = 33
      Height = 25
      Caption = '0'
      TabOrder = 19
      OnClick = Button19Click
    end
    object Button20: TButton
      Left = 94
      Top = 160
      Width = 33
      Height = 25
      Caption = '+/-'
      TabOrder = 20
      OnClick = Button20Click
    end
    object Button21: TButton
      Left = 132
      Top = 160
      Width = 33
      Height = 25
      Caption = '.'
      TabOrder = 21
      OnClick = Button21Click
    end
    object Button22: TButton
      Left = 170
      Top = 160
      Width = 33
      Height = 25
      Caption = '+'
      TabOrder = 22
      OnClick = Button22Click
    end
    object Button23: TButton
      Left = 209
      Top = 160
      Width = 33
      Height = 25
      Caption = '='
      TabOrder = 23
      OnClick = Button23Click
    end
    object Button24: TButton
      Left = 13
      Top = 64
      Width = 33
      Height = 25
      Caption = 'MC'
      TabOrder = 24
      OnClick = Button24Click
    end
    object Button25: TButton
      Left = 13
      Top = 96
      Width = 33
      Height = 25
      Caption = 'MR'
      TabOrder = 25
      OnClick = Button25Click
    end
    object Button26: TButton
      Left = 13
      Top = 128
      Width = 33
      Height = 25
      Caption = 'MS'
      TabOrder = 26
      OnClick = Button26Click
    end
    object Button27: TButton
      Left = 13
      Top = 160
      Width = 33
      Height = 25
      Caption = 'M+'
      TabOrder = 27
      OnClick = Button27Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 200
    object N1: TMenuItem
      Caption = #32534#36753'(&E)'
      object N2: TMenuItem
        Action = copy
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
      end
      object N3: TMenuItem
        Action = paste
        Caption = #31896#24086'(&P)'
        ShortCut = 16470
      end
    end
    object N4: TMenuItem
      Caption = #26597#30475'(&V)'
      object N5: TMenuItem
        Caption = #31185#23398#22411'(&T)'
      end
      object N6: TMenuItem
        Caption = #26631#20934#22411'(&S)'
        Checked = True
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #25968#23398#20998#32452'(I)'
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'(&H)'
      object H2: TMenuItem
        Caption = #24110#21161#20027#39064'(&H)'
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = #20851#20110#35745#31639#22120'(&A)'
      end
    end
    object A2: TMenuItem
      Caption = #36879#26126'(&A)'
      object A3: TMenuItem
        Caption = #36879#26126'(&A)'
        OnClick = A3Click
      end
    end
  end
  object ActionList1: TActionList
    Left = 24
    Top = 24
    object paste: TAction
      Caption = 'paste'
      OnExecute = pasteExecute
    end
    object copy: TAction
      Caption = 'copy'
      OnExecute = copyExecute
    end
  end
end