cmain.dfm

传奇的登陆器!也是在网上搜索的!不知道好不好用

        object Label28: TLabel
          Left = 216
          Top = 220
          Width = 180
          Height = 29
          AutoSize = False
          Caption = #27880#24847#65306#26631#26126#20026#32418#33394#30340#20026#24517#38656#35201#22635#20889#30340#20869#23481#12290
          Font.Charset = GB2312_CHARSET
          Font.Color = clRed
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object EditPassword: TEdit
          Left = 64
          Top = 40
          Width = 89
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          PasswordChar = '*'
          TabOrder = 1
          OnEnter = EditAccountEnter
        end
        object EditAccount: TEdit
          Left = 64
          Top = 16
          Width = 89
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 0
          OnEnter = EditAccountEnter
        end
        object EditConfirm: TEdit
          Left = 64
          Top = 64
          Width = 89
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          PasswordChar = '*'
          TabOrder = 2
          OnEnter = EditAccountEnter
        end
        object EditYourName: TEdit
          Left = 64
          Top = 88
          Width = 89
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 3
          OnEnter = EditAccountEnter
        end
        object EditSSNo: TEdit
          Left = 64
          Top = 112
          Width = 89
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Enabled = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 4
          Text = '0123456'
          OnEnter = EditAccountEnter
        end
        object EditBirthDay: TEdit
          Left = 64
          Top = 136
          Width = 89
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 5
          OnEnter = EditAccountEnter
        end
        object EditQuiz1: TEdit
          Left = 64
          Top = 160
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 6
          OnEnter = EditAccountEnter
        end
        object EditAnswer1: TEdit
          Left = 64
          Top = 184
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 7
          OnEnter = EditAccountEnter
        end
        object EditQuiz2: TEdit
          Left = 64
          Top = 208
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 8
          OnEnter = EditAccountEnter
        end
        object EditAnswer2: TEdit
          Left = 64
          Top = 232
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 9
          OnEnter = EditAccountEnter
        end
        object MemoHelp: TMemo
          Left = 168
          Top = 16
          Width = 241
          Height = 137
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Ctl3D = True
          Enabled = False
          ParentCtl3D = False
          ReadOnly = True
          TabOrder = 13
        end
        object EditPhone: TEdit
          Left = 264
          Top = 160
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 11
          OnEnter = EditAccountEnter
        end
        object EditMobPhone: TEdit
          Left = 264
          Top = 184
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 12
          OnEnter = EditAccountEnter
        end
        object EditEMail: TEdit
          Left = 64
          Top = 256
          Width = 137
          Height = 20
          BevelKind = bkFlat
          BevelOuter = bvRaised
          BorderStyle = bsNone
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlue
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 10
          OnEnter = EditAccountEnter
        end
        object ButtonPanelNewAccountOK: TRzButton
          Left = 320
          Top = 249
          Width = 81
          Height = 33
          Caption = #30830#23450'(&O)'
          HotTrack = True
          TabOrder = 14
          OnClick = ButtonPanelNewAccountOKClick
        end
      end
    end
  end
  object PanelUserLogin: TPanel
    Left = 16
    Top = 224
    Width = 281
    Height = 185
    Color = clTeal
    TabOrder = 4
    Visible = False
    OnMouseDown = PanelUserLoginMouseDown
    object Label1: TLabel
      Left = 40
      Top = 44
      Width = 54
      Height = 12
      Caption = #30331#24405#24080#21495':'
    end
    object Label2: TLabel
      Left = 40
      Top = 68
      Width = 54
      Height = 12
      Caption = #30331#24405#23494#30721':'
    end
    object ButtonLoginClose: TSpeedButton
      Left = 256
      Top = 8
      Width = 17
      Height = 25
      Caption = 'X'
      Flat = True
      OnClick = ButtonStartClick
    end
    object EditUserAccount: TEdit
      Left = 104
      Top = 40
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 10
      TabOrder = 0
      OnKeyPress = EditUserAccountKeyPress
    end
    object EditUserPassword: TEdit
      Left = 104
      Top = 64
      Width = 121
      Height = 20
      BevelKind = bkFlat
      BorderStyle = bsNone
      MaxLength = 10
      PasswordChar = '*'
      TabOrder = 1
      OnKeyPress = EditUserAccountKeyPress
    end
    object ButtonStart: TRzButton
      Left = 152
      Top = 96
      Caption = #30331#24405
      HotTrack = True
      TabOrder = 2
      OnClick = ButtonStartClick
      OnKeyPress = EditUserAccountKeyPress
    end
    object ButtonNewAccount: TRzButton
      Left = 72
      Top = 96
      Caption = #26032#24314#24080#21495
      HotTrack = True
      TabOrder = 3
      OnClick = ButtonStartClick
    end
    object GroupBox7: TGroupBox
      Left = 16
      Top = 128
      Width = 257
      Height = 49
      Caption = #33258#21160#30331#24405
      TabOrder = 4
      object CheckBoxAutoLogin: TCheckBox
        Left = 16
        Top = 16
        Width = 73
        Height = 17
        Caption = #33258#21160#30331#24405
        Checked = True
        State = cbChecked
        TabOrder = 0
        OnClick = CheckBoxAutoLoginClick
      end
      object ButtonChr1: TRadioButton
        Left = 96
        Top = 16
        Width = 65
        Height = 17
        Caption = #35282#33394#19968
        Checked = True
        TabOrder = 1
        TabStop = True
        OnClick = CheckBoxAutoLoginClick
      end
      object ButtonChr2: TRadioButton
        Left = 176
        Top = 16
        Width = 65
        Height = 17
        Caption = #35282#33394#20108
        TabOrder = 2
        OnClick = CheckBoxAutoLoginClick
      end
    end
  end
  object PanelMessageDlg: TPanel
    Left = 0
    Top = 48
    Width = 353
    Height = 153
    Color = clOlive
    TabOrder = 5
    Visible = False
    OnMouseDown = PanelUserLoginMouseDown
    object MsgBoxClose: TSpeedButton
      Left = 328
      Top = 8
      Width = 17
      Height = 25
      Caption = 'X'
      Flat = True
      OnClick = MsgBoxOKClick
    end
    object MsgBoxLabel: TLabel
      Left = 40
      Top = 28
      Width = 281
      Height = 61
      AutoSize = False
    end
    object MsgBoxOK: TRzButton
      Left = 24
      Top = 112
      Caption = #30830#23450
      HotTrack = True
      TabOrder = 0
      OnClick = MsgBoxOKClick
    end
    object MsgBoxCancel: TRzButton
      Left = 104
      Top = 112
      Caption = #21462#28040
      HotTrack = True
      TabOrder = 1
      OnClick = MsgBoxOKClick
    end
    object MsgBoxYes: TRzButton
      Left = 184
      Top = 112
      Caption = #26159
      HotTrack = True
      TabOrder = 2
      OnClick = MsgBoxOKClick
    end
    object MsgBoxNo: TRzButton
      Left = 262
      Top = 112
      Caption = #21542
      HotTrack = True
      TabOrder = 3
      OnClick = MsgBoxOKClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 752
    object MENU_CONTROL: TMenuItem
      Caption = #25511#21046'(&C)'
      object MENU_CONTROL_EXIT: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = MENU_CONTROL_EXITClick
      end
    end
  end
  object TimerMain: TTimer
    Enabled = False
    Interval = 1
    OnTimer = TimerMainTimer
    Left = 720
  end
  object CSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 0
    OnLookup = CSocketLookup
    OnConnecting = CSocketConnecting
    OnConnect = CSocketConnect
    OnDisconnect = CSocketDisconnect
    OnRead = CSocketRead
    OnError = CSocketError
    Left = 688
  end
  object CmdTimer: TTimer
    Enabled = False
    OnTimer = CmdTimerTimer
    Left = 656
  end
  object SelChrWaitTimer: TTimer
    Enabled = False
    OnTimer = CmdTimerTimer
    Left = 624
  end
  object WaitMsgTimer: TTimer
    Enabled = False
    Interval = 1
    OnTimer = CmdTimerTimer
    Left = 592
  end
  object MinTimer: TTimer
    Enabled = False
    OnTimer = CmdTimerTimer
    Left = 560
  end
  object PopupMenu: TPopupMenu
    Left = 528
    object POPMENU_AUTOSCROLL: TMenuItem
      Caption = #33258#21160#28378#21160
      Checked = True
      OnClick = POPMENU_AUTOSCROLLClick
    end
  end
end