unit1.dfm

Delphi语言实现计算器的设计

object Form1: TForm1
  Left = 437
  Top = 297
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #35745#31639#22120
  ClientHeight = 201
  ClientWidth = 266
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Icon.Data = {
    0000010001002020000001002000A81000001600000028000000200000004000
    0000010020000000000000000000000000000000000000000000000000000000
    00000000000000000000FFFFFF0000000005000000178E858189836F68D47F6A
    64DE7C6A66D65B5654B80505058C0000007C0000006E000000610000004E0000
    003C00000030000000260000001B000000120000000C00000008000000050000
    000200000001FFFFFF00FFFFFF00FFFFFF00FFFFFF0000000000000000000000
    000000000000000000000000000100000008A0989559957167E6B08174FFC38C
    7BFFAC7463FF92675BF887665CF1806861E67B6A64D85B5554B90505058C0000
    007C0000006F000000610000004E0000003C00000030000000260000001B0000
    000F000000070000000200000001FFFFFF00FFFFFF0000000000000000000000
    000000000000000000000000000100000009AD938BA1BC8170FFFBBCA8FFFFC7
    AFFFFFBDA0FFFAB598FFEEA78CFFD8937CFFB27664FF94695CF889675DF18169
    61E67A6964D95B5554B90505058C0000007C0000006F000000600000004B0000
    00330000001B0000000900000002FFFFFF00FFFFFF0000000000000000000000
    00000000000000000000000000010000000AAD9189A7C38573FFFCBEABFFFFC9
    B1FFFFC2A3FFFEBFA0FFC38C76FFC48A74FFFBB89BFFFBB699FFF0A88DFFD893
    7CFFB37765FF96695CF88A675DF1826962E67B6964D95B5554B9040404880000
    00680000003E000000180000000500000001FFFFFF0000000000000000000000
    00000000000000000000000000010000000AAC8F86AFC68876FFFDC0AEFFFFCA
    B2FFFFC3A4FFC68F79FFC88A78FFD88F78FFC5856FFFFFC0A1FFF7B89AFFC58C
    76FFE3A389FFFDB699FFF1A98EFFDB967EFFB77966FF996B5DF8906C62ED5A54
    52AF0000005E000000260000000800000001FFFFFF0000000000000000000000
    00000000000000000000000000010000000AAD9087ABC98A78FFFDC2B0FFFFCB
    B3FFFFC4A5FFD09A86FFFFC8AFFFFFC2A3FFE8A489FFE8A88CFFBE8671FFC989
    76FFCC8771FFDE9E84FFFFBFA0FFD59B82FFD1957DFFFDB698FFF2AA8FFFA280
    74E20000006E0000002E0000000B00000001FFFFFF0000000000000000000000
    00000000000000000000000000010000000AAE928AA7CC8C7AFFFEC4B2FFFFCC
    B5FFFFC5A6FFD5A38FFFFCE6D5FFFFDEBDFFF5CFB4FFE2A98EFFCE9986FFFFC3
    A6FFFFBC9EFFD3947BFFDBA188FFC18672FFCF8973FFCB8A73FFFFC0A1FFB28B
    7DE900000073000000310000000B00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAE9289AACE8E7BFFFEC6B4FFFFCD
    B6FFFFC6A7FFF9BEA0FFCEA491FFEDD4BAFFCFA58EFFF9BFA0FFD1A492FFFFE6
    CCFFFFDCBDFFD7A48DFFD29B84FFFAC4ACFFFFBFA1FFDB9980FFF6B699FFB48D
    7EEA00000074000000310000000C00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAD8E84B3D1907DFFFEC8B7FFFFCE
    B7FFFFC7A8FFFFC6A7FFE8B195FFD6A086FFFBC1A2FFFFC5A6FFE8B399FFD7B3
    9FFFE7C9AFFFD9A78FFFE1AC94FFEED0BDFFFFDEBEFFE8BCA4FFEFB397FFB38B
    7DEC00000075000000320000000C00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000AAD8E84B3D4927FFFFFCABAFFFFCF
    B8FFFFC8A8FFD29E85FFB8806DFFC3836FFFCE9179FFFFC6A7FFFFC5A6FFD8A1
    88FFE0AA8FFFFFC5A6FFFFC5A6FFD1A490FFE1C2A9FFCDA089FFFFC4A5FFB68F
    80EC00000076000000320000000C00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000AAF9188AED69481FFFFCCBDFFFFD0
    BAFFFFC9A9FFCA9581FFFCBBA2FFFFB99CFFDD9B81FFEFB598FFC08B75FFBC81
    6EFFC3836EFFE1A58BFFFFC7A7FFE1AB91FFCD9880FFFDC3A5FFFFC6A8FFB891
    82ED00000077000000330000000D00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAF9087B0D89683FFFFCEBEFFFFD1
    BAFFFFCAAAFFD3A693FFFFE3CDFFFFD7B6FFF7CDB2FFE1AB91FFCC9784FFFEBE
    A2FFFFB99CFFD1947CFFE6B196FFBA826FFFCA8772FFC88A74FFFFC8A9FFB890
    80EF00000077000000340000000D00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAC8B81BADB9885FFFFD0C1FFFFD2
    BBFFFFCBABFFE7B69CFFE5C9B8FFFFF1D5FFDEBAA2FFF2BEA1FFD0A594FFFFE0
    C5FFFFD9BBFFD5A48DFFCE9A84FFF4BEA7FFFFC0A2FFE3A38AFFEFB69AFFBA92
    83EF00000078000000340000000D00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAC8B81BCDD9A87FFFFD2C4FFFFD3
    BCFFFFCCADFFFFCCACFFE5B59BFFD6AA91FFE5B498FFFFCBACFFDEAF98FFEAD1
    BDFFFBEACCFFD3A790FFE2B098FFEED1BFFFFFDEBEFFF0CAB2FFE7B298FFBD96
    86EF00000079000000340000000D00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAE8E84B7DF9C89FFFFD4C7FFFFD4
    BDFFFFCDADFFEFBEA1FFB4826EFFBA846FFFE4AF94FFFFCCADFFFFCCADFFE7B7
    9DFFD9AB90FFFBC7A9FFFFCCADFFD0A693FFEDD5BAFFCFA58EFFFBC9ABFFBD95
    84F10000007A000000350000000D00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAE8E84B8E29F8BFFFFD6CAFFFFD5
    BFFFFFCEAEFFC4917CFFE3A18BFFF5A88EFFCB8D76FFFAC7A9FFD2A189FFB781
    6EFFBE8570FFF0BC9FFFFFCEAFFFF0C5ABFFBFA395FFF9C7A9FFFFCFB1FFBE96
    85F20000007A000000360000000E00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAD8A80BFE3A18DFFFFD8CDFFFFD5
    BFFFFFCFAFFFD0A28FFFFFD3BAFFFFCDAEFFF2BEA5FFE4B096FFC6917DFFF8B2
    98FFF9AF94FFCF947DFFECC5ADFF4D77AAFF4C70BFFF6D88ABFFFFD0B3FFC19B
    8BF20404047D000000380000000F00000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAD897EC3E5A38FFFFFDAD1FFFFD6
    C1FFFFD0B0FFD4A894FFFCECDCFFFFE6C7FFEFD2BAFFE7B89EFFD0A492FFFFD7
    BBFFFFD4B6FFD6A690FF96A0AEFF658FEEFF7295FFFF6A89D9FFC3B5B3FFC29C
    8CF3131313830000003B0000001000000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAE8C81BFE7A592FFFFDCD3FFFFD7
    C2FFFFD1B1FFF9C9AAFFCEA794FFDFC2A8FFCFA38BFFFED0B0FFD4AA96FFFCED
    DBFFFFEBCEFFD5AE98FFA8ACB2FF82B3EAFF8AB0FFFF87A5F5FF97A4B1FFC39E
    8EF32827278A0000003D0000001100000002FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAF8C82BFE9A895FFFFDFD7FFFFD8
    C2FFFFD2B2FFFFD2B2FFFFD2B2FFF6C9AAFFFFD2B2FFFFD2B3FFFACCAEFFD2A9
    94FFD5AE94FFE9BDA1FFFBD1B5FF70A0B8FFA0CBFDFF79A0CAFFDAC4B8FFC9A4
    94F42A29288D0000003E0000001200000003FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAF8A7FC4ECAB97FFFFE0D9FFFFD9
    C3FFFFD3B3FFFFD3B3FFFFD3B3FFFFD3B4FFFFD3B4FFFFD3B4FFFFD4B5FFFFD4
    B5FFFFD4B6FFFFD4B6FFFFD5B7FFE8CBB7FF8CA5B3FFC2BBB8FFFFD7BBFFCAA7
    96F42C2B2A8E000000410000001400000003FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAF887DC9EDAD99FFFFE2DDFFFFD9
    C4FFFFD4B4FFEABB9DFFD29F84FFD7A489FFD5A388FFD5A388FFD6A287FFD8A6
    8BFFE5B599FFF2C6A9FFFED4B7FFFFD6B9FFFFD7BAFFFFD8BBFFFFD8BDFFCBA9
    98F5423F3E98000000430000001500000004FFFFFF0000000000000000000000
    00000000000000000000000000010000000BAF8A7EC7EEAF9CFFFFE5E0FFFFDA
    C5FFFED3B4FFD3987BFFFFB98FFFFFBB92FFFFBD94FFFFC099FFFFC29CFFFDC0
    9BFFF1B593FFE3A889FFD7A084FFD6A288FFD5A389FFE5B89EFFFFDABEFFCFAE
    9DF54642429A000000450000001600000004FFFFFF0000000000000000000000
    00000000000000000000000000010000000BB18C81C5F1B3A0FFFFE7E3FFFFDB
    C6FFF4C7A8FFE39972FFFFA674FFFFA877FFFFAA7AFFFFAB7CFFFFAF81FFFFB1
    84FFFFB286FFFFB489FFFFB78DFFFFBA91FFFFBC95FFE3A989FFE9BCA2FFD2B1
    A1F64743429C000000480000001800000005FFFFFF0000000000000000000000
    00000000000000000000000000020000000CB08A7FC8F2B6A3FFFFE9E7FFFFDC
    C7FFFCD2B2FFD88D68FFFF965DFFFF975FFFFF9861FFFF9B65FFFF9C67FFFF9E
    69FFFFA06CFFFFA370FFFFA573FFFFA676FFFFA879FFFFAB7CFFD59D81FFD4B4
    A2F7585351A50000004A00000019000000050000000100000000000000000000
    00000000000000000000000000020000000CAF887BCFF3B9A7FFFFEBE9FFFFDD
    C8FFFFD7B8FFD79B7BFFF38952FFFF8B4DFFFF8B4EFFFF8C50FFFF8F53FFFF90
    55FFFF9056FFFF9158FFFF945CFFFF965EFFFF9760FFFF9963FFD49779FFD8B8
    A6F85D5755A90000004C0000001B000000050000000100000000000000000000
    00000000000000000000000000020000000BB0887CCFF3BBA9FFFFEDECFFFFDD
    C9FFFFD8B8FFFFD8B9FFDBA283FFD6926FFFD58C68FFD68963FFD98860FFE38A
    5DFFEF8A56FFF9894FFFFF8A4CFFFF894CFFFF8A4DFFF48D58FFD9A488FFDEBF
    ADF8605A58AC0000004E0000001B000000050000000100000000000000000000
    00000000000000000000000000010000000AB48C80CBF5C5B5FFFFF2F1FFFFE5
    D3FFFFDCBCFFFFDBBBFFFFDBBBFFFFDBBBFFFFDABBFFFFDABBFFFCD4B5FFF1C5
    A7FFE7B698FFDCA88BFFD59F82FFD79C7DFFD79879FFDBA587FFFFDEC3FFDFC1
    AFF968615EAE0000004D0000001B000000050000000100000000000000000000
    000000000000000000000000000100000006BF998EBEFDE5D5FFFFFEF7FFFFFB
    F1FFFFF5D9FFFFF2D4FFFFEFD1FFFFEECFFFFFEBCBFFFFE8C8FFFFE6C6FFFFE4
    C4FFFFE2C3FFFFE1C2FFFFE0C2FFFFDFC2FFFFDFC3FFFFDFC3FFFFE0C5FFE1C2
    AFF9776D6AAC0000004400000017000000050000000100000000000000000000
    00000000000000000000FFFFFF0000000002D0B9B26CD5AF99DFFFF1D1FFFFF2
    D3FFFFF2CEFFFFF4D0FFFFF6D2FFFFF7D4FFFFF8D5FFFFF8D4FFFFF8D4FFFFF7
    D4FFFFF6D3FFFFF5D1FFFFF3D0FFFFF1CEFFFFEFCCFFFFEECCFFFFECCBFFE0C6
    AEF47D747095000000300000000E00000002FFFFFF0000000000000000000000
    00000000000000000000FFFFFF000000000100000004CFC3C03FC9ADA198C5A7
    99AAC5A696B4C8A795BEC9A794C8CAA792D1CDA892D8CEA992E1D6B197E5DEBC
    9FEBE9C8A8F2F2D3B0F8FCE0B9FCFFE7BEFFFFEAC1FFFFEDC5FFFFEDC4FFBEA0
    8ED91D1D1C3D000000180000000700000001FFFFFF0000000000000000000000
    00000000000000000000FFFFFF00FFFFFF000000000100000002000000050000
    0008000000090000000B0000000B0000000B0000000C2222220FA7A3A128BCB1
    AD46C2B1AB62C5AEA57EC2A69B98C1A397A4C4A496ADC5A596B3C3A698AC8C87
    8544000000150000000800000002FFFFFF00FFFFFF000000000000000000F000
    003FE000000FE000000FE0000007E0000007E0000007E0000007E0000007E000
    0007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E000
    0007E0000007E0000007E0000007E0000007E0000007E0000007E0000007E000
    0003E0000003E0000003E0000003E0000003F0000007F0000007F800000F}
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object SpeedButton1: TSpeedButton
    Left = 48
    Top = 100
    Width = 33
    Height = 29
    Caption = '4'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 48
    Top = 68
    Width = 33
    Height = 29
    Caption = '7'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 118
    Top = 68
    Width = 33
    Height = 29
    Caption = '9'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 153
    Top = 68
    Width = 33
    Height = 29
    Caption = '/'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object SpeedButton5: TSpeedButton
    Left = 153
    Top = 100
    Width = 33
    Height = 29
    Caption = '*'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton5Click
  end
  object SpeedButton6: TSpeedButton
    Left = 83
    Top = 68
    Width = 33
    Height = 29
    Caption = '8'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton6Click
  end
  object SpeedButton7: TSpeedButton
    Left = 48
    Top = 132
    Width = 33
    Height = 29
    Caption = '1'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton7Click
  end
  object SpeedButton8: TSpeedButton
    Left = 83
    Top = 100
    Width = 33
    Height = 29
    Caption = '5'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton8Click
  end
  object SpeedButton9: TSpeedButton
    Left = 118
    Top = 132
    Width = 33
    Height = 29
    Caption = '3'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton9Click
  end
  object SpeedButton10: TSpeedButton
    Left = 118
    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 = SpeedButton10Click
  end
  object SpeedButton11: TSpeedButton
    Left = 153
    Top = 132
    Width = 33
    Height = 29
    Caption = '-'
    Font.Charset = ANSI_CHARSET
    Font.Color = clRed
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton11Click
  end
  object SpeedButton12: TSpeedButton
    Left = 48
    Top = 164
    Width = 33
    Height = 29
    Caption = '0'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton12Click
  end
  object SpeedButton13: TSpeedButton
    Left = 118
    Top = 100
    Width = 33
    Height = 29
    Caption = '6'
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton13Click
  end
  object SpeedButton14: TSpeedButton
    Left = 83
    Top = 132
    Width = 33
    Height = 29
    Caption = '2'
    Font.Charset = ANSI_CHARSET