unit1.dfm

精彩编程百例51～75 其中有 cpu速度测试 检测声卡 查询内存信息 图像处理技巧 模拟放大镜效果等待

object Form1: TForm1
  Left = 224
  Top = 136
  Width = 472
  Height = 312
  Caption = #21160#24577#25991#23383#25928#26524
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 392
    Top = 40
    Width = 11
    Height = 37
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = Timer1Timer
    OnDblClick = Timer1Timer
  end
  object Label2: TLabel
    Left = 392
    Top = 40
    Width = 11
    Height = 37
    Align = alCustom
    FocusControl = Edit2
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = Timer2Timer
  end
  object Label3: TLabel
    Left = 392
    Top = 40
    Width = 11
    Height = 37
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = Timer3Timer
  end
  object Label4: TLabel
    Left = 392
    Top = 40
    Width = 11
    Height = 37
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = Timer4Timer
  end
  object Label5: TLabel
    Left = 392
    Top = 40
    Width = 11
    Height = 37
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = Timer5Timer
  end
  object Label6: TLabel
    Left = 392
    Top = 40
    Width = 11
    Height = 37
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Visible = False
    OnClick = Timer6Timer
  end
  object Label7: TLabel
    Left = 144
    Top = 112
    Width = 176
    Height = 21
    Caption = #35831#36755#20837#25991#23383#25110#23383#27597
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -21
    Font.Name = #26999#20307'_GB2312'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 72
    Top = 157
    Width = 40
    Height = 45
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = Timer1Timer
    OnClick = Timer1Timer
    OnDblClick = Timer1Timer
  end
  object Edit2: TEdit
    Left = 128
    Top = 157
    Width = 40
    Height = 45
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = Timer2Timer
    OnClick = Timer2Timer
    OnDblClick = Timer2Timer
  end
  object Edit3: TEdit
    Left = 184
    Top = 157
    Width = 40
    Height = 45
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnChange = Timer3Timer
    OnClick = Timer3Timer
    OnDblClick = Timer3Timer
  end
  object Edit4: TEdit
    Left = 240
    Top = 157
    Width = 40
    Height = 45
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnChange = Timer4Timer
    OnClick = Timer4Timer
    OnDblClick = Timer4Timer
  end
  object Edit5: TEdit
    Left = 296
    Top = 157
    Width = 40
    Height = 45
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnChange = Timer5Timer
    OnClick = Timer5Timer
    OnDblClick = Timer5Timer
  end
  object Edit6: TEdit
    Left = 352
    Top = 157
    Width = 40
    Height = 45
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 5
    OnChange = Timer6Timer
    OnClick = Timer6Timer
    OnDblClick = Timer6Timer
  end
  object BitBtn1: TBitBtn
    Left = 176
    Top = 224
    Width = 115
    Height = 33
    Caption = #21160#36215#26469
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -24
    Font.Name = #21326#25991#34892#26999
    Font.Style = []
    ParentFont = False
    TabOrder = 6
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0000377777777777777703030303030303037F7F7F7F7F7F7F7F000000000000
      00007777777777777777933393303933337073F37F37F73F3377393393303393
      379037FF7F37F37FF777379793303379793037777337F3777737339933303339
      93303377F3F7F3F77F3733993930393993303377F737F7377FF7399993303399
      999037777337F377777793993330333393307377FF37F3337FF7333993303333
      993033377F37F33377F7333993303333993033377337F3337737333333303333
      33303FFFFFF7FFFFFFF700000000000000007777777777777777030303030303
      03037F7F7F7F7F7F7F7F00000000000000007777777777777777}
    NumGlyphs = 2
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 5
    OnTimer = Timer1Timer
    Left = 112
    Top = 232
  end
  object Timer2: TTimer
    Enabled = False
    Interval = 5
    OnTimer = Timer2Timer
    Left = 80
    Top = 232
  end
  object Timer3: TTimer
    Enabled = False
    Interval = 5
    OnTimer = Timer3Timer
    Left = 304
    Top = 232
  end
  object Timer4: TTimer
    Enabled = False
    Interval = 5
    OnTimer = Timer4Timer
    Left = 368
    Top = 232
  end
  object Timer5: TTimer
    Enabled = False
    Interval = 5
    OnTimer = Timer5Timer
    Left = 144
    Top = 232
  end
  object Timer6: TTimer
    Enabled = False
    Interval = 5
    OnTimer = Timer6Timer
    Left = 336
    Top = 232
  end
  object Timer7: TTimer
    OnTimer = Timer7Timer
    Left = 400
    Top = 232
  end
end