unit1.dfm

在delphi中实现windows核心编程.原书光盘代码核心编程.原书光盘代码

object Form1: TForm1
  Left = 116
  Top = 34
  Width = 451
  Height = 386
  Caption = #35835#21462#20869#23384#36827#31243#31354#38388#20869#30340#25968#25454
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object Label1: TLabel
    Left = 404
    Top = 98
    Width = 88
    Height = 16
    Caption = #20869#23384#21306#22495#20174':'
  end
  object Label2: TLabel
    Left = 394
    Top = 167
    Width = 24
    Height = 16
    Caption = #21040':'
  end
  object Label3: TLabel
    Left = 20
    Top = 10
    Width = 40
    Height = 16
    Caption = #36827#31243':'
  end
  object Button1: TButton
    Left = 394
    Top = 246
    Width = 92
    Height = 31
    Caption = #35835#25968#25454
    TabOrder = 0
    OnClick = Button1Click
  end
  object Memo1: TMemo
    Left = 10
    Top = 59
    Width = 375
    Height = 346
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssBoth
    TabOrder = 1
  end
  object ComboBox1: TComboBox
    Left = 79
    Top = 10
    Width = 405
    Height = 24
    Style = csDropDownList
    ItemHeight = 16
    TabOrder = 2
  end
  object MaskEdit1: TMaskEdit
    Left = 394
    Top = 118
    Width = 119
    Height = 21
    EditMask = '!A!A!A!A!A!A!A!A;1;_'
    MaxLength = 8
    TabOrder = 3
    Text = '00400001'
  end
  object MaskEdit2: TMaskEdit
    Left = 394
    Top = 187
    Width = 119
    Height = 21
    EditMask = '!A!A!A!A!A!A!A!A;1;_'
    MaxLength = 8
    TabOrder = 4
    Text = '004000ff'
  end
end