📄 prsentformunit.dfm
字号:
object PrsentForm: TPrsentForm
Left = 380
Top = 225
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #32771#21220#20449#24687#31649#29702
ClientHeight = 226
ClientWidth = 203
Color = clCaptionText
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Label3: TLabel
Left = 16
Top = 146
Width = 60
Height = 13
Caption = #32570#21220#26376#20221#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 17
Top = 121
Width = 60
Height = 13
Caption = #32570#21220#31867#22411#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 17
Top = 96
Width = 60
Height = 13
Caption = #32570#21220#26085#26399#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 71
Width = 60
Height = 13
Caption = #21592#24037#22995#21517#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 16
Top = 47
Width = 60
Height = 13
Caption = #21592#24037#32534#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 44
Top = 13
Width = 121
Height = 25
AutoSize = False
Caption = #32771#21220#20449#24687#31649#29702
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object BtOk: TButton
Left = 23
Top = 184
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = BtOkClick
end
object BtExit: TButton
Left = 110
Top = 184
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 1
OnClick = BtExitClick
end
object edtMonth: TEdit
Left = 78
Top = 143
Width = 107
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object CBAbsentType: TComboBox
Left = 78
Top = 117
Width = 107
Height = 21
BevelInner = bvLowered
BevelKind = bkFlat
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
ParentFont = False
TabOrder = 3
Items.Strings = (
#32570#21220
#36831#21040
#20107#20551
#30149#20551
#20844#20241
#20986#24046
#21152#29677)
end
object PrsentData: TDateTimePicker
Left = 78
Top = 92
Width = 107
Height = 21
BevelInner = bvLowered
Date = 38484.000000000000000000
Time = 38484.000000000000000000
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
end
object edtName: TEdit
Left = 78
Top = 67
Width = 107
Height = 21
BevelInner = bvLowered
BevelKind = bkFlat
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object edtNo: TEdit
Left = 78
Top = 43
Width = 107
Height = 21
BevelInner = bvLowered
BevelKind = bkFlat
BorderStyle = bsNone
Font.Charset = DEFAULT_CHARSET
Font.Color = 16554836
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -