📄 bookinfo.dfm
字号:
object bookInfoForm: TbookInfoForm
Left = 136
Top = 149
BorderStyle = bsSingle
Caption = #22270#20070#20449#24687#31649#29702
ClientHeight = 288
ClientWidth = 590
Color = 16248814
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsStayOnTop
OldCreateOrder = False
Position = poScreenCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object SpeedButton1: TSpeedButton
Left = 133
Top = 249
Width = 73
Height = 25
Caption = '&E'#20462#25913
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 216
Top = 249
Width = 73
Height = 25
Caption = '&S'#30830#23450
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 384
Top = 249
Width = 73
Height = 25
Caption = '&X'#20851#38381
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 300
Top = 249
Width = 73
Height = 25
Caption = '&C'#21462#28040
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = SpeedButton4Click
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 590
Height = 233
Align = alTop
BevelInner = bvRaised
BevelOuter = bvNone
BorderStyle = bsSingle
Ctl3D = True
ParentColor = True
ParentCtl3D = False
TabOrder = 0
object Label1: TLabel
Left = 21
Top = 13
Width = 80
Height = 16
Caption = #22270#20070#32534#21495#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 21
Top = 38
Width = 80
Height = 16
Caption = #22270#20070#26465#30721#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 229
Top = 13
Width = 80
Height = 16
Caption = #20070' '#21517#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 21
Top = 63
Width = 80
Height = 16
Caption = #20316' '#32773#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 229
Top = 38
Width = 80
Height = 16
Caption = #20316#32773#22269#31821#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 21
Top = 88
Width = 80
Height = 16
Caption = #20986' '#29256' '#31038#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 229
Top = 63
Width = 80
Height = 16
Caption = #20986#29256#26102#38388#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 21
Top = 113
Width = 80
Height = 16
Caption = #29256' '#26412#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 229
Top = 113
Width = 80
Height = 16
Caption = #39029' '#25968#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 229
Top = 88
Width = 80
Height = 16
Caption = #20809#30424#25968#37327#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 21
Top = 138
Width = 80
Height = 16
Caption = #20301' '#32622#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label13: TLabel
Left = 21
Top = 163
Width = 80
Height = 16
Caption = #22791' '#27880#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 229
Top = 137
Width = 80
Height = 16
Caption = #31181' '#31867#65306
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 344
Top = 64
Width = 12
Height = 13
Caption = #24180
end
object Label15: TLabel
Left = 384
Top = 64
Width = 12
Height = 13
Caption = #26376
end
object ComboBox1: TComboBox
Left = 94
Top = 11
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
Ctl3D = True
ItemHeight = 13
ParentCtl3D = False
TabOrder = 0
OnKeyPress = ComboBox1KeyPress
OnSelect = ComboBox1Select
end
object Edit2: TEdit
Left = 94
Top = 61
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 2
OnKeyPress = Edit2KeyPress
end
object Edit3: TEdit
Left = 302
Top = 36
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 1
OnKeyPress = Edit3KeyPress
end
object Edit4: TEdit
Left = 94
Top = 86
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 3
OnKeyPress = Edit4KeyPress
end
object Edit6: TEdit
Left = 94
Top = 111
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 5
OnKeyPress = Edit6KeyPress
end
object Edit7: TEdit
Left = 302
Top = 111
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 6
OnKeyPress = Edit7KeyPress
end
object Edit8: TEdit
Left = 302
Top = 86
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 4
OnKeyPress = Edit8KeyPress
end
object Edit9: TEdit
Left = 94
Top = 136
Width = 121
Height = 21
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 7
OnKeyPress = Edit9KeyPress
end
object Memo1: TMemo
Left = 94
Top = 163
Width = 328
Height = 49
BevelKind = bkFlat
BevelOuter = bvRaised
BorderStyle = bsNone
Ctl3D = True
ParentCtl3D = False
TabOrder = 9
end
object GroupBox1: TGroupBox
Left = 432
Top = 5
Width = 153
Height = 209
Caption = #22270#20070#23553#38754'('#21333#20987#20462#25913')'
TabOrder = 10
object Image1: TImage
Left = 2
Top = 15
Width = 149
Height = 192
Align = alClient
IncrementalDisplay = True
Stretch = True
OnClick = Image1Click
end
end
object ComboBox4: TComboBox
Left = 302
Top = 136
Width = 121
Height = 21
BevelKind = bkFlat
Enabled = False
ItemHeight = 13
TabOrder = 8
OnKeyPress = ComboBox4KeyPress
end
object ComboBox3: TMyComboBox
Left = 302
Top = 12
Width = 123
Height = 21
AutoComplete = False
BevelKind = bkFlat
ItemHeight = 13
Sorted = True
TabOrder = 11
OnKeyPress = ComboBox31KeyPress
OnSelect = ComboBox31Select
end
object ComboBox2: TMyComboBox
Left = 94
Top = 36
Width = 121
Height = 21
AutoComplete = False
BevelKind = bkFlat
ItemHeight = 13
Sorted = True
TabOrder = 12
OnKeyPress = ComboBox21KeyPress
OnSelect = ComboBox21Select
end
object MaskEdit1: TMaskEdit
Left = 302
Top = 60
Width = 37
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
EditMask = '!9999;1;0'
MaxLength = 4
TabOrder = 13
Text = ' '
OnKeyPress = MaskEdit1KeyPress
end
object MaskEdit2: TMaskEdit
Left = 359
Top = 60
Width = 23
Height = 21
BevelKind = bkFlat
BorderStyle = bsNone
EditMask = '!99;1;0'
MaxLength = 2
TabOrder = 14
Text = ' '
OnKeyPress = MaskEdit2KeyPress
end
end
object OPDialog1: TOpenPictureDialog
Filter =
'All (*.bmp;*.ico;*.emf;*.wmf)|*.bmp;*.ico;*.emf;*.wmf|Bitmaps (*' +
'.bmp)|*.bmp|Icons (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf' +
'|Metafiles (*.wmf)|*.wmf'
Left = 8
Top = 245
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -