cformnewuser.~dfm

来自「Delphi深度探索,Delphi深度探索（第二版）」· ~DFM 代码 · 共 165 行

object formNewUser: TformNewUser
  Left = 0
  Top = 0
  Width = 548
  Height = 252
  Title = #26032#24314#29992#25143
  SupportedBrowsers = [brIE, brNetscape6, brOpera]
  Background.Fixed = False
  HandleTabs = False
  DesignLeft = 291
  DesignTop = 267
  object iwbtnOK: TIWButton
    Left = 352
    Top = 24
    Width = 89
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ButtonType = btButton
    Caption = #30830#23450
    Color = clBtnFace
    DoSubmitValidation = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 0
    OnClick = iwbtnOKClick
  end
  object iwbtnCancel: TIWButton
    Left = 352
    Top = 72
    Width = 89
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    ButtonType = btButton
    Caption = #21462#28040
    Color = clBtnFace
    DoSubmitValidation = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    ScriptEvents = <>
    TabOrder = 1
    OnClick = iwbtnCancelClick
  end
  object iweUserName: TIWEdit
    Left = 168
    Top = 24
    Width = 153
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <
      item
        EventCode.Strings = (
          '  if (((event.keyCode >=48) && (event.keyCode <=57)) || '
          '  ((event.keyCode >=65) && (event.keyCode <=90))  ||'
          '  ((event.keyCode >=97) && (event.keyCode <=122)))'
          '  {'
          '     return true;'
          '  }')
        Event = 'onKeyPress'
      end>
    TabOrder = 2
    PasswordPrompt = False
  end
  object iwl1: TIWLabel
    Left = 16
    Top = 32
    Width = 110
    Height = 20
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    Color = clNone
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    Caption = #36755#20837#29992#25143#21517
  end
  object IWLabel1: TIWLabel
    Left = 16
    Top = 80
    Width = 132
    Height = 20
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    Color = clNone
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    NoWrap = False
    Caption = #36755#20837#29992#25143#23494#30721
  end
  object iwmPass: TIWMaskEdit
    Left = 168
    Top = 72
    Width = 153
    Height = 33
    Cursor = crAuto
    IW50Hint = False
    ParentShowHint = False
    ShowHint = True
    ZIndex = 0
    Alignment = taLeftJustify
    BGColor = clNone
    FocusColor = clNone
    DoSubmitValidation = True
    Editable = True
    Font.BackColor = clNone
    Font.Color = clNone
    Font.Enabled = True
    Font.Size = 10
    Font.Style = []
    FriendlyName = 'IWMaskEdit1'
    MaxLength = 0
    ReadOnly = False
    Required = False
    ScriptEvents = <>
    TabOrder = 3
    PasswordPrompt = False
  end
end