📄 unitmain.dfm

📁 delphi的一个非常好的计算器程序。绝对很好！
💻 DFM
字号:
object FormMain: TFormMain
  Left = 191
  Top = 221
  BorderStyle = bsToolWindow
  Caption = '计算器'
  ClientHeight = 191
  ClientWidth = 255
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  Menu = MainMenu
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object spdBtnEqul: TSpeedButton
    Left = 210
    Top = 157
    Width = 37
    Height = 28
    Caption = '='
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object SpeedButton2: TSpeedButton
    Left = 372
    Top = 333
    Width = 37
    Height = 28
    Spacing = 1
  end
  object spdBtn0: TSpeedButton
    Left = 53
    Top = 157
    Width = 35
    Height = 28
    Caption = '0'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    Spacing = 2
    OnClick = ProcessMessage
  end
  object spdBtnSign: TSpeedButton
    Left = 92
    Top = 157
    Width = 37
    Height = 28
    Caption = '+/-'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    Spacing = 2
  end
  object spdBtnDS: TSpeedButton
    Left = 210
    Top = 126
    Width = 37
    Height = 28
    Caption = '1/x'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtnPoint: TSpeedButton
    Left = 132
    Top = 157
    Width = 37
    Height = 28
    Caption = '.'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtnAdd: TSpeedButton
    Left = 172
    Top = 157
    Width = 35
    Height = 28
    Caption = '+'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    Spacing = 2
    OnClick = ProcessMessage
  end
  object spdBtnSqrt: TSpeedButton
    Left = 210
    Top = 65
    Width = 37
    Height = 28
    Caption = 'sqrt'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object SpeedButton9: TSpeedButton
    Left = 210
    Top = 96
    Width = 37
    Height = 28
    Caption = '%'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtn1: TSpeedButton
    Left = 53
    Top = 126
    Width = 35
    Height = 28
    Caption = '1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn4: TSpeedButton
    Left = 53
    Top = 96
    Width = 35
    Height = 28
    Caption = '4'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn7: TSpeedButton
    Left = 53
    Top = 65
    Width = 37
    Height = 28
    Caption = '7'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn2: TSpeedButton
    Left = 92
    Top = 126
    Width = 37
    Height = 28
    Caption = '2'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn5: TSpeedButton
    Left = 92
    Top = 96
    Width = 37
    Height = 28
    Caption = '5'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn3: TSpeedButton
    Left = 132
    Top = 126
    Width = 37
    Height = 28
    Caption = '3'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn9: TSpeedButton
    Left = 132
    Top = 65
    Width = 37
    Height = 28
    Caption = '9'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtnSub: TSpeedButton
    Left = 172
    Top = 126
    Width = 35
    Height = 28
    Caption = '-'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtn6: TSpeedButton
    Left = 132
    Top = 96
    Width = 37
    Height = 28
    Caption = '6'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtnMS: TSpeedButton
    Left = 8
    Top = 126
    Width = 37
    Height = 28
    Caption = 'MS'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtnM: TSpeedButton
    Left = 8
    Top = 157
    Width = 37
    Height = 28
    Caption = 'M+'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtnDiv: TSpeedButton
    Left = 172
    Top = 65
    Width = 35
    Height = 28
    Caption = '/'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtnMult: TSpeedButton
    Left = 172
    Top = 96
    Width = 35
    Height = 28
    Caption = '*'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -13
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object spdBtnClear: TSpeedButton
    Left = 184
    Top = 30
    Width = 63
    Height = 28
    Caption = 'C'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object SpeedButton25: TSpeedButton
    Left = 50
    Top = 30
    Width = 71
    Height = 28
    Caption = 'Backspace'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtnMC: TSpeedButton
    Left = 8
    Top = 65
    Width = 37
    Height = 28
    Caption = 'MC'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtnMR: TSpeedButton
    Left = 8
    Top = 96
    Width = 37
    Height = 28
    Caption = 'MR'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtnCE: TSpeedButton
    Left = 120
    Top = 30
    Width = 61
    Height = 28
    Caption = 'CE'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = '@PMingLiU'
    Font.Style = []
    ParentFont = False
  end
  object spdBtn8: TSpeedButton
    Left = 92
    Top = 65
    Width = 37
    Height = 28
    Caption = '8'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = '@Arial Unicode MS'
    Font.Style = []
    ParentFont = False
    OnClick = ProcessMessage
  end
  object Panel1: TPanel
    Left = 14
    Top = 31
    Width = 27
    Height = 25
    BiDiMode = bdRightToLeft
    BorderStyle = bsSingle
    ParentBiDiMode = False
    TabOrder = 0
  end
  object edtInput: TEdit
    Left = 11
    Top = 0
    Width = 236
    Height = 21
    AutoSelect = False
    BevelInner = bvSpace
    BiDiMode = bdRightToLeft
    ParentBiDiMode = False
    TabOrder = 1
    Text = '0.'
  end
  object MainMenu: TMainMenu
    Left = 304
    Top = 328
    object N1: TMenuItem
      Caption = '编辑(&E)'
      object C1: TMenuItem
        Caption = '复制(&C)  Ctrl+V'
      end
      object VC1: TMenuItem
        Caption = '粘贴(&P)  Ctrl+V'
      end
    end
    object N2: TMenuItem
      Caption = '查看(&V)'
      object V1: TMenuItem
        Caption = '标准型(&T)'
      end
      object N3: TMenuItem
        Caption = '科学型(&S)'
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = '数字分组(&I)'
      end
    end
    object H1: TMenuItem
      Caption = '帮助(&H)'
      object H2: TMenuItem
        Caption = '帮助主题(&H)'
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = '关于计算器(&A)'
      end
    end
  end
end
💿 文件大小 169 K
👤 上传用户 smellteen
📂 所属分类 Delphi控件源码
🏷️ 相关标签

#delphi #计算器 #程序
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -