📄 unit7.dfm
字号:
Caption = 'PersonInfo'
object Panel1: TPanel
Left = 0
Top = 0
Width = 790
Height = 500
Align = alClient
TabOrder = 0
object Splitter1: TSplitter
Left = 537
Top = 1
Width = 9
Height = 498
Beveled = True
end
object DBGrid1: TDBGrid
Left = 1
Top = 1
Width = 536
Height = 498
Align = alLeft
DataSource = DModule1.DS_Brow
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
OnCellClick = DBGrid1CellClick
end
object Notebook2: TNotebook
Left = 546
Top = 1
Width = 243
Height = 498
Align = alClient
TabOrder = 1
object TPage
Left = 0
Top = 0
Caption = 'Happen'
object Panel8: TPanel
Left = 0
Top = 0
Width = 243
Height = 498
Align = alClient
TabOrder = 0
object Label7: TLabel
Left = 48
Top = 14
Width = 33
Height = 13
Caption = #29031#29255':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 24
Top = 208
Width = 59
Height = 13
Caption = #20107#20214#21517#31216':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 24
Top = 250
Width = 59
Height = 13
Caption = #21457#29983#26102#38388':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 24
Top = 293
Width = 59
Height = 13
Caption = #21457#29983#22320#28857':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 24
Top = 336
Width = 59
Height = 13
Caption = #20107#20214#35760#24405':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Image2: TImage
Tag = 2
Left = 99
Top = 14
Width = 264
Height = 176
PopupMenu = PopupMenu2
Stretch = True
OnDblClick = Image2DblClick
end
object Edit10: TEdit
Left = 96
Top = 203
Width = 339
Height = 21
TabOrder = 0
Text = 'Edit10'
OnKeyPress = Edit10KeyPress
end
object DateTimePicker2: TDateTimePicker
Left = 96
Top = 245
Width = 186
Height = 21
Date = 38227.595034872680000000
Time = 38227.595034872680000000
DateFormat = dfLong
TabOrder = 1
OnKeyPress = DateTimePicker2KeyPress
end
object Edit11: TEdit
Left = 95
Top = 283
Width = 339
Height = 21
TabOrder = 2
Text = 'Edit10'
OnKeyPress = Edit10KeyPress
end
object Memo3: TMemo
Left = 96
Top = 328
Width = 337
Height = 257
Lines.Strings = (
'Memo3')
ScrollBars = ssBoth
TabOrder = 3
end
object Panel9: TPanel
Left = 1
Top = 440
Width = 241
Height = 57
Align = alBottom
BevelOuter = bvNone
TabOrder = 4
object Label20: TLabel
Left = 24
Top = 28
Width = 59
Height = 13
Caption = #24405#20687#36164#26009':'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Edit12: TEdit
Left = 97
Top = 20
Width = 269
Height = 21
TabOrder = 0
Text = 'Edit10'
OnKeyPress = Edit10KeyPress
end
object Button1: TButton
Left = 385
Top = 16
Width = 52
Height = 25
Caption = #24405#20687
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
end
end
end
object TPage
Left = 0
Top = 0
Caption = 'GZZD'
object Panel3: TPanel
Left = 0
Top = 0
Width = 243
Height = 498
Align = alClient
TabOrder = 0
object Label14: TLabel
Left = 16
Top = 24
Width = 60
Height = 13
Caption = #35268#31456#21517#31216#65306
end
object Label15: TLabel
Left = 16
Top = 56
Width = 60
Height = 13
Caption = #19979#21457#21333#20301#65306
end
object Label16: TLabel
Left = 16
Top = 88
Width = 60
Height = 13
Caption = #25191#34892#21333#20301#65306
end
object Label17: TLabel
Left = 16
Top = 128
Width = 60
Height = 13
Caption = #35268#31456#20869#23481#65306
end
object Label18: TLabel
Left = 16
Top = 576
Width = 60
Height = 13
Caption = #19979#21457#26102#38388#65306
end
object Edit7: TEdit
Left = 80
Top = 18
Width = 349
Height = 21
TabOrder = 0
Text = 'Edit7'
OnKeyPress = Edit7KeyPress
end
object Edit8: TEdit
Left = 80
Top = 51
Width = 349
Height = 21
TabOrder = 1
Text = 'Edit8'
OnKeyPress = Edit7KeyPress
end
object Edit9: TEdit
Left = 80
Top = 85
Width = 349
Height = 21
TabOrder = 2
Text = 'Edit9'
OnKeyPress = Edit7KeyPress
end
object Memo2: TMemo
Left = 80
Top = 128
Width = 353
Height = 433
Lines.Strings = (
'Memo2')
ScrollBars = ssBoth
TabOrder = 3
end
object DateTimePicker1: TDateTimePicker
Left = 80
Top = 572
Width = 113
Height = 21
Date = 38215.381772430550000000
Time = 38215.381772430550000000
DateFormat = dfLong
TabOrder = 4
end
end
end
end
end
end
end
object GroupBox1: TGroupBox
Left = 0
Top = 0
Width = 790
Height = 34
Align = alTop
TabOrder = 1
DesignSize = (
790
34)
object SpeedButton1: TSpeedButton
Left = 5
Top = 8
Width = 37
Height = 22
Caption = #28155#21152
OnClick = SpeedButton1Click
end
object SpeedButton2: TSpeedButton
Left = 45
Top = 8
Width = 37
Height = 22
Caption = #20462#25913
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 85
Top = 8
Width = 37
Height = 22
Caption = #21024#38500
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 125
Top = 8
Width = 41
Height = 22
Anchors = [akLeft]
Caption = #36864#20986
OnClick = SpeedButton4Click
end
end
object PopupMenu1: TPopupMenu
Left = 570
Top = 20
object N1: TMenuItem
Caption = #20445#23384#20869#23481
OnClick = N1Click
end
end
object PopupMenu2: TPopupMenu
Left = 594
Top = 163
object N2: TMenuItem
Caption = #28165#31354#22270#20687
OnClick = N2Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -