📄 datefmu.dfm
字号:
object datefm: Tdatefm
Left = 362
Top = 205
Width = 328
Height = 238
Caption = #26102#38388#35774#23450
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object Panelsrf: TPanel
Left = 0
Top = 0
Width = 319
Height = 209
Hint = #36873#25321#30456#24212#36755#20837#27861#65292#28857#20987#30830#23450
BevelInner = bvLowered
BorderWidth = 4
BorderStyle = bsSingle
Color = 10219733
ParentShowHint = False
ShowHint = True
TabOrder = 0
object grpboxDate: TGroupBox
Left = 10
Top = 12
Width = 294
Height = 177
Caption = #26102#38388#35774#23450
Color = 10219733
ParentColor = False
TabOrder = 0
object Label1: TLabel
Left = 30
Top = 32
Width = 24
Height = 12
Caption = #24180#24230
end
object Label2: TLabel
Left = 166
Top = 32
Width = 24
Height = 12
Caption = #26376#20221
end
object Calendar: TCalendar
Left = 5
Top = 56
Width = 284
Height = 113
Color = clCream
StartOfWeek = 0
TabOrder = 1
OnKeyDown = CalendarKeyDown
end
object cmboBoxMonth: TComboBox
Left = 198
Top = 24
Width = 65
Height = 20
ItemHeight = 12
TabOrder = 2
OnChange = cmboBoxMonthChange
Items.Strings = (
'01'
'02'
'03'
'04'
'05'
'06'
'07'
'08'
'09'
'10'
'11'
'12')
end
object udYear: TUpDown
Left = 127
Top = 24
Width = 17
Height = 20
Associate = edtYear
Min = 0
Max = 2050
Position = 2002
TabOrder = 3
Thousands = False
Wrap = False
end
object edtYear: TEdit
Left = 62
Top = 24
Width = 65
Height = 20
TabOrder = 0
Text = '2002'
OnChange = edtYearChange
OnKeyPress = edtYearKeyPress
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -