📄 main.dfm
字号:
object FormMain: TFormMain
Left = 237
Top = 172
Width = 245
Height = 315
Caption = #20154#21147#36164#28304#31649#29702#20449#24687#31995#32479
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
Visible = True
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object CoolBar1: TCoolBar
Left = 0
Top = 252
Width = 237
Height = 36
Align = alBottom
Bands = <
item
Control = ToolBar1
ImageIndex = -1
MinHeight = 41
Width = 233
end>
Color = clSkyBlue
ParentColor = False
object ToolBar1: TToolBar
Left = 9
Top = 0
Width = 220
Height = 41
Caption = 'ToolBar1'
TabOrder = 0
object BTNReturn: TBitBtn
Left = 0
Top = 2
Width = 75
Height = 22
Caption = #37325#26032#30331#24405'(&R)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BTNReturnClick
end
object BTNAbout: TBitBtn
Left = 75
Top = 2
Width = 70
Height = 22
Caption = #20851#20110'(&A)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BTNAboutClick
end
object BTNClose: TBitBtn
Left = 145
Top = 2
Width = 70
Height = 22
Caption = #20851#38381'(&X)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BTNCloseClick
end
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 237
Height = 249
Align = alTop
Color = clSkyBlue
TabOrder = 1
object GroupBox2: TGroupBox
Left = 1
Top = 1
Width = 235
Height = 247
Align = alClient
Caption = #20154#21147#36164#28304#31649#29702#20449#24687#31995#32479
Color = clSkyBlue
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -12
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentColor = False
ParentFont = False
TabOrder = 0
DesignSize = (
235
247)
object BTNInput: TBitBtn
Left = 8
Top = 20
Width = 220
Height = 35
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #21592#24037#20449#24687#30331#35760
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
OnClick = BTNInputClick
end
object BTNManager: TBitBtn
Left = 8
Top = 65
Width = 220
Height = 35
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #21592#24037#20449#24687#31649#29702
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = BTNManagerClick
end
object BTNSearch: TBitBtn
Left = 8
Top = 111
Width = 220
Height = 35
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #21592#24037#20449#24687#26597#35810
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BTNSearchClick
end
object BTNReport: TBitBtn
Left = 8
Top = 157
Width = 220
Height = 35
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #21592#24037#20449#24687#25253#34920
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = BTNReportClick
end
object BTNDecision: TBitBtn
Left = 8
Top = 203
Width = 220
Height = 35
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = #21592#24037#20449#24687#20998#26512
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BTNDecisionClick
end
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -