main.dfm

本程序是一个简易的计算器源代码。具有一般计算器的所有功能。

    Top = 136
    Width = 33
    Height = 25
    Caption = 'Aver'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 35
    OnClick = Button35Click
  end
  object Button36: TButton
    Left = 16
    Top = 168
    Width = 33
    Height = 25
    Caption = 'Sum'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 36
    OnClick = Button36Click
  end
  object Button37: TButton
    Left = 16
    Top = 200
    Width = 33
    Height = 25
    Caption = 'S'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 37
    OnClick = Button37Click
  end
  object Button38: TButton
    Left = 16
    Top = 232
    Width = 33
    Height = 25
    Caption = 'Dat'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 38
    OnClick = Button38Click
  end
  object Button39: TButton
    Left = 56
    Top = 104
    Width = 33
    Height = 25
    Caption = 'F-E'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 39
  end
  object Button40: TButton
    Left = 56
    Top = 136
    Width = 33
    Height = 25
    Caption = 'dms'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 40
  end
  object Button41: TButton
    Left = 56
    Top = 168
    Width = 33
    Height = 25
    Caption = 'Sin'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 41
    OnClick = Button41Click
  end
  object Button42: TButton
    Left = 56
    Top = 200
    Width = 33
    Height = 25
    Caption = 'Cos'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 42
    OnClick = Button42Click
  end
  object Button43: TButton
    Left = 56
    Top = 232
    Width = 33
    Height = 25
    Caption = 'Tan'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 43
    OnClick = Button43Click
  end
  object Button44: TButton
    Left = 96
    Top = 104
    Width = 33
    Height = 25
    Caption = '('
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 44
  end
  object Button45: TButton
    Left = 96
    Top = 136
    Width = 33
    Height = 25
    Caption = 'Exp'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 45
    OnClick = Button45Click
  end
  object Button46: TButton
    Left = 96
    Top = 168
    Width = 33
    Height = 25
    Caption = 'X^Y'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 46
    OnClick = Button46Click
  end
  object Button47: TButton
    Left = 96
    Top = 200
    Width = 33
    Height = 25
    Caption = 'X^3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 47
    OnClick = Button47Click
  end
  object Button48: TButton
    Left = 96
    Top = 232
    Width = 33
    Height = 25
    Caption = 'X^2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 48
    OnClick = Button48Click
  end
  object Button49: TButton
    Left = 136
    Top = 104
    Width = 33
    Height = 25
    Caption = ')'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 49
  end
  object Button50: TButton
    Left = 136
    Top = 136
    Width = 33
    Height = 25
    Caption = 'In'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 50
    OnClick = Button50Click
  end
  object Button51: TButton
    Left = 136
    Top = 168
    Width = 33
    Height = 25
    Caption = 'Log'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 51
    OnClick = Button51Click
  end
  object Button52: TButton
    Left = 136
    Top = 200
    Width = 33
    Height = 25
    Caption = 'N!'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 52
    OnClick = Button52Click
  end
  object Button53: TButton
    Left = 136
    Top = 232
    Width = 33
    Height = 25
    Caption = '1/X'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 53
    OnClick = Button53Click
  end
  object Button54: TButton
    Left = 176
    Top = 104
    Width = 33
    Height = 25
    Caption = 'MC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 54
    OnClick = Button54Click
  end
  object Button55: TButton
    Left = 176
    Top = 136
    Width = 33
    Height = 25
    Caption = 'MR'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 55
    OnClick = Button55Click
  end
  object Button56: TButton
    Left = 176
    Top = 168
    Width = 33
    Height = 25
    Caption = 'MS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 56
    OnClick = Button56Click
  end
  object Button57: TButton
    Left = 176
    Top = 200
    Width = 33
    Height = 25
    Caption = 'M+'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 57
    OnClick = Button57Click
  end
  object Button58: TButton
    Left = 176
    Top = 232
    Width = 33
    Height = 25
    Caption = 'pi'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 58
    OnClick = Button58Click
  end
  object Button59: TButton
    Left = 64
    Top = 72
    Width = 33
    Height = 25
    Caption = 'Sqrt'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 59
    OnClick = Button59Click
  end
  object Button60: TButton
    Left = 120
    Top = 72
    Width = 33
    Height = 25
    Caption = '%'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 60
    OnClick = Button60Click
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 24
    Width = 289
    Height = 41
    TabOrder = 61
    object RadioButton1: TRadioButton
      Left = 16
      Top = 16
      Width = 73
      Height = 17
      Caption = #21313#20845#36827#21046
      TabOrder = 0
      OnClick = RadioButton1Click
    end
    object RadioButton2: TRadioButton
      Left = 88
      Top = 16
      Width = 65
      Height = 17
      Caption = #21313#36827#21046
      TabOrder = 1
      OnClick = RadioButton2Click
    end
    object RadioButton3: TRadioButton
      Left = 152
      Top = 16
      Width = 65
      Height = 17
      Caption = #20843#36827#21046
      TabOrder = 2
      OnClick = RadioButton3Click
    end
    object RadioButton4: TRadioButton
      Left = 216
      Top = 16
      Width = 65
      Height = 17
      Caption = #20108#36827#21046
      TabOrder = 3
      OnClick = RadioButton4Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 312
    Top = 24
    Width = 161
    Height = 41
    TabOrder = 62
    object RadioButton5: TRadioButton
      Left = 16
      Top = 16
      Width = 57
      Height = 17
      Caption = #35282#24230
      TabOrder = 0
      OnClick = RadioButton5Click
    end
    object RadioButton6: TRadioButton
      Left = 96
      Top = 16
      Width = 57
      Height = 17
      Caption = #24359#24230
      TabOrder = 1
      OnClick = RadioButton6Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 16
    Top = 72
    object N1: TMenuItem
      Caption = #32534#36753
      object N2: TMenuItem
        Caption = #22797#21046
      end
      object N3: TMenuItem
        Caption = #31896#36148
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = #36864#20986
        OnClick = N5Click
      end
    end
    object N6: TMenuItem
      Caption = #26597#30475
      object N7: TMenuItem
        Caption = #31616#21333#22411
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = #31185#23398#22411
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N10: TMenuItem
        Caption = #21313#20845#36827#21046
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #21313#36827#21046
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #20843#36827#21046
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #20108#36827#21046
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N15: TMenuItem
        Caption = #35282#24230
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = #24359#24230
        OnClick = N16Click
      end
    end
  end
end