registerunit.dfm

三层的通用架构

object RegisterForm: TRegisterForm
  Left = 369
  Top = 136
  ActiveControl = Edit1
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #27880#20876
  ClientHeight = 219
  ClientWidth = 320
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 24
    Top = 76
    Width = 72
    Height = 12
    Caption = #27880#20876#29992#25143'(&U):'
    FocusControl = Edit1
  end
  object Label2: TLabel
    Left = 24
    Top = 110
    Width = 72
    Height = 12
    Caption = #27880#20876#20449#24687'(&I):'
    FocusControl = Memo1
  end
  object Bevel1: TBevel
    Left = 10
    Top = 162
    Width = 300
    Height = 9
    Shape = bsTopLine
  end
  object Label3: TLabel
    Left = 24
    Top = 20
    Width = 72
    Height = 12
    Caption = #26412#26426#20449#24687'(&T):'
    FocusControl = Memo2
  end
  object Edit1: TEdit
    Left = 98
    Top = 72
    Width = 198
    Height = 20
    MaxLength = 16
    TabOrder = 1
    OnChange = Edit1Change
  end
  object Button1: TButton
    Left = 56
    Top = 178
    Width = 75
    Height = 25
    Caption = #30830#23450'(&O)'
    Default = True
    Enabled = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 189
    Top = 178
    Width = 75
    Height = 25
    Cancel = True
    Caption = #21462#28040'(&C)'
    TabOrder = 4
    OnClick = Button2Click
  end
  object Memo1: TMemo
    Left = 98
    Top = 106
    Width = 198
    Height = 42
    TabOrder = 2
  end
  object Memo2: TMemo
    Left = 98
    Top = 16
    Width = 198
    Height = 42
    TabStop = False
    ReadOnly = True
    TabOrder = 0
  end
end