unit1.dfm

Delphi语言实现计算器的设计

    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton14Click
  end
  object SpeedButton15: TSpeedButton
    Left = 83
    Top = 164
    Width = 33
    Height = 29
    Caption = '.'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton15Click
  end
  object SpeedButton16: TSpeedButton
    Left = 153
    Top = 164
    Width = 33
    Height = 29
    Caption = '+'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton16Click
  end
  object SpeedButton17: TSpeedButton
    Left = 188
    Top = 68
    Width = 33
    Height = 29
    Caption = 'Sqrt'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton17Click
  end
  object SpeedButton18: TSpeedButton
    Left = 188
    Top = 100
    Width = 33
    Height = 29
    Caption = 'Sqr'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton18Click
  end
  object SpeedButton20: TSpeedButton
    Left = 188
    Top = 164
    Width = 33
    Height = 29
    Caption = '='
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton20Click
  end
  object SpeedButton21: TSpeedButton
    Left = 9
    Top = 68
    Width = 33
    Height = 29
    Caption = 'MC'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton21Click
  end
  object SpeedButton22: TSpeedButton
    Left = 9
    Top = 100
    Width = 33
    Height = 29
    Caption = 'MR'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton22Click
  end
  object SpeedButton23: TSpeedButton
    Left = 9
    Top = 132
    Width = 33
    Height = 29
    Caption = 'MS'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton23Click
  end
  object SpeedButton24: TSpeedButton
    Left = 9
    Top = 164
    Width = 33
    Height = 29
    Caption = 'M+'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton24Click
  end
  object SpeedButton25: TSpeedButton
    Left = 48
    Top = 31
    Width = 97
    Height = 30
    Caption = 'Backspace'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton25Click
  end
  object SpeedButton26: TSpeedButton
    Left = 148
    Top = 31
    Width = 53
    Height = 30
    Caption = 'CE'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton26Click
  end
  object SpeedButton27: TSpeedButton
    Left = 204
    Top = 31
    Width = 53
    Height = 30
    Caption = 'C'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton27Click
  end
  object SpeedButton28: TSpeedButton
    Left = 188
    Top = 132
    Width = 33
    Height = 29
    Caption = '1/x'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton28Click
  end
  object SpeedButton29: TSpeedButton
    Left = 223
    Top = 132
    Width = 33
    Height = 29
    Caption = 'Cos'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton29Click
  end
  object SpeedButton30: TSpeedButton
    Left = 223
    Top = 100
    Width = 33
    Height = 29
    Caption = 'Sin'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton30Click
  end
  object SpeedButton31: TSpeedButton
    Left = 223
    Top = 68
    Width = 33
    Height = 29
    Caption = 'Ln'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton31Click
  end
  object SpeedButton19: TSpeedButton
    Left = 223
    Top = 164
    Width = 33
    Height = 29
    Caption = '%'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton19Click
  end
  object Panel1: TPanel
    Left = 14
    Top = 36
    Width = 22
    Height = 22
    BevelOuter = bvLowered
    TabOrder = 0
  end
  object MyRightEdit1: TMyRightEdit
    Left = 9
    Top = 1
    Width = 249
    Height = 24
    Enabled = False
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    Alignment = taRightJustify
  end
  object MainMenu1: TMainMenu
    OwnerDraw = True
    Left = 40
    Top = 216
    object N1: TMenuItem
      Caption = #32534#36753'(&E)'
      object N2: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #31896#36148'(&P)'
        ShortCut = 16470
        OnClick = N3Click
      end
      object N10: TMenuItem
        Caption = #36864#20986'(&E)'
        OnClick = N10Click
      end
    end
    object N4: TMenuItem
      Caption = #26597#30475'(&V)'
      object N6: TMenuItem
        Caption = #25968#23383#20998#32452'(&I)'
        OnClick = N6Click
      end
    end
    object N5: TMenuItem
      Caption = #24110#21161'(&H)'
      object N7: TMenuItem
        Caption = #24110#21161#20027#39064'&H)'
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #20851#20110'(&A)'
        OnClick = N9Click
      end
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clMenuText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Color = clBtnFace
    DrawMenuBar = False
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    UseDimColor = False
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 80
    Top = 216
  end
end