Files
AC_Pro/VerifyCodeFormUnit.dfm
2026-06-13 00:05:19 +08:00

94 lines
2.1 KiB
ObjectPascal

object VerifyCodeForm: TVerifyCodeForm
Left = 0
Top = 0
BorderIcons = []
BorderStyle = bsNone
Caption = 'VerifyCode'
ClientHeight = 156
ClientWidth = 284
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
KeyPreview = True
Position = poMainFormCenter
Scaled = False
OnCreate = FormCreate
OnKeyDown = FormKeyDown
TextHeight = 15
object GeneralDialogPanel1: TGeneralDialogPanel
Left = 0
Top = 0
Width = 284
Height = 156
Align = alClient
Caption = #20154#26426#39564#35777
Color = 5064257
ParentBackground = False
TabOrder = 0
object m_imgCode: TImage
Left = 140
Top = 52
Width = 120
Height = 36
Hint = #28857#20987#21047#26032
Center = True
ParentShowHint = False
ShowHint = True
OnClick = CodeImgClick
end
object m_btnOk: TTextButton
Left = 99
Top = 110
Width = 85
Height = 30
ParentShowHint = False
ShowHint = True
OnClick = OkClick
Text = #30830#23450
end
object m_editCode: TLineEdit
Left = 20
Top = 50
Width = 120
Height = 40
ParentCustomHint = False
Alignment = taCenter
HintText = #20154#26426#39564#35777#30721
NumberMax = -1
NumberMin = -1
Color = 15591652
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tahoma'
Font.Style = []
TabOrder = 0
end
end
object RESTClient: TRESTClient
Accept = 'application/json, text/plain; q=0.9, text/html;q=0.8,'
AcceptCharset = 'utf-8, *;q=0.8'
Params = <>
SynchronizedEvents = False
Left = 192
Top = 131
end
object RESTRequest: TRESTRequest
Client = RESTClient
Params = <>
Response = RESTResponse
SynchronizedEvents = False
Left = 232
Top = 131
end
object RESTResponse: TRESTResponse
ContentType = 'application/json'
ContentEncoding = 'UTF-8'
Left = 200
Top = 131
end
end