Delphi控件源码

开发平台：
Delphi

ChangeNameAndPasswordFrm.dfm：源码内容
							object ChangeNameAndPasswordForm: TChangeNameAndPasswordForm
  Left = 444
  Top = 370
  BorderStyle = bsDialog
  Caption = #26356#25913#21602#31216'/'#23494#30721
  ClientHeight = 188
  ClientWidth = 305
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 48
    Height = 12
    Caption = #29992#25143#21602#31216
  end
  object EDName: TEdit
    Left = 72
    Top = 8
    Width = 225
    Height = 20
    MaxLength = 40
    TabOrder = 0
    OnChange = EDNameChange
  end
  object BTOK: TButton
    Left = 144
    Top = 160
    Width = 74
    Height = 22
    Caption = #26356#26032
    Enabled = False
    TabOrder = 1
    OnClick = BTOKClick
  end
  object BTCancel: TButton
    Left = 224
    Top = 160
    Width = 74
    Height = 22
    Caption = #21462#28040
    TabOrder = 2
    OnClick = BTCancelClick
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 40
    Width = 289
    Height = 113
    Caption = #26356#25913#23494#30721
    TabOrder = 3
    object Label3: TLabel
      Left = 8
      Top = 72
      Width = 48
      Height = 12
      Caption = #30830#35748#23494#30721
    end
    object Label2: TLabel
      Left = 8
      Top = 48
      Width = 36
      Height = 12
      Caption = #26032#23494#30721
    end
    object Label4: TLabel
      Left = 8
      Top = 24
      Width = 36
      Height = 12
      Caption = #21407#23494#30721
    end
    object Label5: TLabel
      Left = 64
      Top = 91
      Width = 180
      Height = 12
      Caption = #27880#65306#20197#19978#20869#23481#20026#31354#34920#31034#19981#20462#25913#23494#30721
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object EDConfirmPassword: TEdit
      Left = 64
      Top = 64
      Width = 217
      Height = 20
      MaxLength = 20
      PasswordChar = '*'
      TabOrder = 0
      OnChange = EDNameChange
    end
    object EDPassword: TEdit
      Left = 64
      Top = 40
      Width = 217
      Height = 20
      MaxLength = 20
      PasswordChar = '*'
      TabOrder = 1
      OnChange = EDNameChange
    end
    object EDOldPassword: TEdit
      Left = 64
      Top = 16
      Width = 217
      Height = 20
      MaxLength = 20
      PasswordChar = '*'
      TabOrder = 2
      OnChange = EDNameChange
    end
  end
end

						