unit6.dfm
来自「是关于SQL的一些程序 很好很经典的~大家又兴趣的可以学习下」· DFM 代码 · 共 128 行
DFM
128 行
object changepasswordForm: TchangepasswordForm
Left = 202
Top = 111
Width = 311
Height = 265
Caption = #26356#26032#29992#25143#36164#26009
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 40
Top = 32
Width = 64
Height = 20
Caption = #26087#23494#30721' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 40
Top = 80
Width = 64
Height = 20
Caption = #26032#23494#30721' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 40
Top = 128
Width = 64
Height = 20
Caption = #26032#23494#30721' '
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object confirm: TEdit
Left = 128
Top = 120
Width = 129
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 0
end
object newpassword: TEdit
Left = 128
Top = 72
Width = 129
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 1
end
object oldpassword: TEdit
Left = 128
Top = 32
Width = 129
Height = 28
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 2
end
object Button1: TButton
Left = 40
Top = 168
Width = 89
Height = 33
Caption = #20462' '#25913
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button1Click
end
object Button2: TButton
Left = 168
Top = 168
Width = 89
Height = 33
Caption = #36864' '#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = Button2Click
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?