📄 main.dfm
字号:
object Form1: TForm1
Left = 674
Top = 120
BorderStyle = bsSingle
Caption = 'DateTime <-> Str'
ClientHeight = 160
ClientWidth = 311
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 16
object Label1: TLabel
Left = 8
Top = 16
Width = 25
Height = 16
Caption = 'Int T'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 8
Top = 48
Width = 28
Height = 16
Caption = 'Str T'
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 40
Top = 16
Width = 121
Height = 24
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'Edit1'
end
object Edit2: TEdit
Left = 40
Top = 48
Width = 121
Height = 24
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = 'Edit2'
end
object ButToStr: TButton
Left = 184
Top = 16
Width = 49
Height = 25
Caption = 'To Str'
TabOrder = 2
OnClick = ButToStrClick
end
object Button2: TButton
Left = 184
Top = 48
Width = 49
Height = 25
Caption = 'To Int'
TabOrder = 3
OnClick = Button2Click
end
object Button3: TButton
Left = 248
Top = 16
Width = 49
Height = 25
Caption = 'Now'
TabOrder = 4
OnClick = Button3Click
end
object Button4: TButton
Left = 248
Top = 48
Width = 49
Height = 25
Caption = 'Exit'
TabOrder = 5
OnClick = Button4Click
end
object Edit3: TEdit
Left = 16
Top = 120
Width = 281
Height = 24
Color = clMoneyGreen
Font.Charset = DEFAULT_CHARSET
Font.Color = clMaroon
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
Text = 'E:\'#21335#28436#31034#31995#32479'\database\NSHMTermToSetDB.mdb'
end
object ButSetModify: TButton
Left = 96
Top = 88
Width = 137
Height = 25
Caption = 'Set File Modify Time'
TabOrder = 7
OnClick = ButSetModifyClick
end
object ButGetModify: TButton
Left = 248
Top = 88
Width = 49
Height = 25
Caption = 'Get'
TabOrder = 8
OnClick = ButGetModifyClick
end
object ButBrowse: TButton
Left = 16
Top = 88
Width = 65
Height = 25
Caption = 'Browse'
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 9
OnClick = ButBrowseClick
end
object OpenDialog1: TOpenDialog
InitialDir = 'E:\'#21335#28436#31034#31995#32479'\database'
Top = 128
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -