📄 unposacard.dfm
字号:
object FMPOSACARD: TFMPOSACARD
Left = 111
Top = 217
BorderIcons = []
BorderStyle = bsToolWindow
Caption = '输入信用卡'
ClientHeight = 273
ClientWidth = 492
Color = 16765872
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 10
Top = 8
Width = 165
Height = 32
Caption = '信用卡编号'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -32
Font.Name = '新宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label3: TLabel
Left = 10
Top = 48
Width = 198
Height = 32
Caption = '信用卡到期日'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -32
Font.Name = '新宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 10
Top = 88
Width = 165
Height = 32
Caption = '信用卡类别'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -32
Font.Name = '新宋体'
Font.Style = [fsBold]
ParentFont = False
end
object Label4: TLabel
Left = 10
Top = 128
Width = 165
Height = 32
Caption = '信用卡金额'
Font.Charset = DEFAULT_CHARSET
Font.Color = clNavy
Font.Height = -32
Font.Name = '新宋体'
Font.Style = [fsBold]
ParentFont = False
end
object BTNQUT: TBitBtn
Left = 10
Top = 172
Width = 475
Height = 95
Caption = '完成输入ENTER 退出 ESC'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = '新宋体'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BTNQUTClick
end
object ED_PACNO: TJEdit
Left = 185
Top = 5
Width = 300
Height = 38
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = '新宋体'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
OnKeyDown = ED_PACNOKeyDown
Digits = 1
Max = 999999999
_EditType = EDIT
_SHOWCAL = NONE
_BADINPUT = False
_LONGTIME = False
end
object ED_PACDT: TJEdit
Left = 185
Top = 45
Width = 300
Height = 38
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = '新宋体'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 2
OnKeyDown = ED_PACNOKeyDown
Digits = 1
Max = 999999999
_EditType = CDATE_EDIT
_SHOWCAL = NONE
_BADINPUT = False
_LONGTIME = False
end
object ED_PACKD: TJEdit
Left = 185
Top = 85
Width = 300
Height = 38
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = '新宋体'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 3
OnKeyDown = ED_PACNOKeyDown
Digits = 1
Max = 999999999
_EditType = EDIT
_SHOWCAL = NONE
_BADINPUT = False
_LONGTIME = False
end
object ED_PACNA: TJEdit
Left = 185
Top = 125
Width = 300
Height = 38
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -32
Font.Name = '新宋体'
Font.Pitch = fpVariable
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 4
OnKeyDown = ED_PACNOKeyDown
Digits = 1
Max = 999999999
_EditType = INTEGER_EDIT
_SHOWCAL = NONE
_BADINPUT = False
_LONGTIME = False
end
object MainMenu1: TMainMenu
Left = 25
Top = 5
object ESC: TMenuItem
Caption = '取消交易ESC'
ShortCut = 27
Visible = False
OnClick = ESCClick
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -