calcunit.dfm

用delphi做的计算器代码 有可执行文件,比较详细

object CalcForm: TCalcForm
  Left = 105
  Top = 84
  Width = 575
  Height = 427
  Caption = #39640#32423#35745#31639#22120' '#65288#35201#33719#24471#24110#21161#35831#38190#20837'Help'#65289
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Visible = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 15
    Top = 0
    Width = 552
    Height = 400
    Align = alClient
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 0
    object Memo1: TMemo
      Left = 0
      Top = 0
      Width = 552
      Height = 400
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      Color = clBlack
      Ctl3D = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Courier New'
      Font.Style = []
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnKeyDown = Memo1KeyDown
      OnKeyPress = Memo1KeyPress
      OnKeyUp = Memo1KeyUp
      OnMouseMove = Memo1MouseMove
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 15
    Height = 400
    Align = alLeft
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 1
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 64
    Top = 72
  end
  object ColorDialog1: TColorDialog
    Ctl3D = True
    Left = 56
    Top = 16
  end
  object Timer1: TTimer
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 112
    Top = 16
  end
end