📄 smsform.dfm
字号:
623
257)
object PageControl1: TPageControl
Left = 3
Top = 4
Width = 618
Height = 252
ActivePage = TabSheet2
Anchors = [akLeft, akTop, akRight, akBottom]
TabIndex = 1
TabOrder = 0
OnChange = PageControl1Change
object TabSheet1: TTabSheet
Caption = #39044#35774#30701#20449
object Panel3: TPanel
Left = 0
Top = 0
Width = 610
Height = 225
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
DesignSize = (
610
225)
object sp: TSplitter
Left = 146
Top = 1
Width = 7
Height = 223
Cursor = crHSplit
Beveled = True
ResizeStyle = rsUpdate
OnMoved = spMoved
end
object tv: TTreeView
Left = 1
Top = 1
Width = 145
Height = 223
Cursor = crHandPoint
Align = alLeft
AutoExpand = True
BevelInner = bvSpace
Ctl3D = False
Indent = 19
ParentCtl3D = False
ReadOnly = True
ShowRoot = False
TabOrder = 0
OnClick = tvClick
OnMouseMove = tvMouseMove
Items.Data = {
01000000210000000000000000000000FFFFFFFFFFFFFFFF0000000004000000
08D4A4C9E8B6CCD0C5210000000000000000000000FFFFFFFFFFFFFFFF000000
000000000008D7EED0C2D1D4D3EF210000000000000000000000FFFFFFFFFFFF
FFFF000000000200000008D6D4D0C4D7A3B8A31D0000000000000000000000FF
FFFFFFFFFFFFFF000000000000000004C9FAC8D51D0000000000000000000000
FFFFFFFFFFFFFFFF000000000000000004BDDAC8D52100000000000000000000
00FFFFFFFFFFFFFFFF000000000000000008B0AEC7E9C9FABBEE210000000000
000000000000FFFFFFFFFFFFFFFF000000000000000008C9FABBEED3C4C4AC}
end
object sg: TStringGrid
Left = 153
Top = 1
Width = 457
Height = 223
Anchors = [akLeft, akTop, akRight, akBottom]
ColCount = 3
Ctl3D = False
DefaultRowHeight = 18
FixedCols = 0
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 1
OnDblClick = sgDblClick
OnMouseMove = sgMouseMove
ColWidths = (
64
345
42)
end
end
end
object TabSheet2: TTabSheet
Caption = #35774#32622#30005#35805#31807
ImageIndex = 1
object Panel4: TPanel
Left = 0
Top = 0
Width = 610
Height = 225
Align = alClient
BevelOuter = bvLowered
TabOrder = 0
OnMouseMove = tvMouseMove
DesignSize = (
610
225)
object Shape8: TShape
Left = 212
Top = 7
Width = 75
Height = 25
Brush.Style = bsClear
Pen.Color = clBlue
end
object Shape7: TShape
Left = 111
Top = 7
Width = 75
Height = 25
Brush.Style = bsClear
Pen.Color = clBlue
end
object Shape6: TShape
Left = 15
Top = 7
Width = 75
Height = 25
Brush.Style = bsClear
Pen.Color = clBlue
end
object SpeedButton2: TSpeedButton
Left = 16
Top = 8
Width = 73
Height = 23
Caption = #22686#21152
Flat = True
OnClick = SpeedButton2Click
end
object SpeedButton3: TSpeedButton
Left = 112
Top = 8
Width = 73
Height = 23
Caption = #20462#25913
Flat = True
OnClick = SpeedButton3Click
end
object SpeedButton4: TSpeedButton
Left = 213
Top = 8
Width = 73
Height = 23
Caption = #21024#38500
Flat = True
OnClick = SpeedButton4Click
end
object Shape12: TShape
Tag = 100
Left = 14
Top = 6
Width = 77
Height = 27
Brush.Style = bsClear
Pen.Color = clBtnText
OnMouseMove = Shape10MouseMove
end
object Shape13: TShape
Tag = 100
Left = 110
Top = 6
Width = 77
Height = 27
Brush.Style = bsClear
Pen.Color = clBtnText
OnMouseMove = Shape10MouseMove
end
object Shape14: TShape
Tag = 100
Left = 211
Top = 6
Width = 77
Height = 27
Brush.Style = bsClear
Pen.Color = clBtnText
OnMouseMove = Shape10MouseMove
end
object GroupBox1: TGroupBox
Left = 16
Top = 37
Width = 577
Height = 108
Anchors = [akLeft, akTop, akRight]
Caption = #26379#21451#20449#24687
Ctl3D = False
ParentCtl3D = False
TabOrder = 0
DesignSize = (
577
108)
object Label11: TLabel
Left = 232
Top = 22
Width = 36
Height = 12
Caption = #24615#21035#65306
end
object Label12: TLabel
Left = 237
Top = 48
Width = 36
Height = 12
Caption = #22791#27880#65306
end
object edtname: TLabeledEdit
Left = 53
Top = 18
Width = 154
Height = 18
Ctl3D = False
EditLabel.Width = 36
EditLabel.Height = 12
EditLabel.Caption = #22995#21517#65306
LabelPosition = lpLeft
LabelSpacing = 3
ParentCtl3D = False
TabOrder = 0
OnKeyPress = edtnameKeyPress
end
object rb1: TRadioButton
Left = 280
Top = 18
Width = 49
Height = 17
Caption = #30007
Checked = True
TabOrder = 1
TabStop = True
end
object rb2: TRadioButton
Left = 328
Top = 18
Width = 49
Height = 17
Caption = #22899
TabOrder = 2
end
object edtphone: TLabeledEdit
Left = 53
Top = 48
Width = 154
Height = 18
Ctl3D = False
EditLabel.Width = 36
EditLabel.Height = 12
EditLabel.Caption = #25163#26426#65306
LabelPosition = lpLeft
LabelSpacing = 3
ParentCtl3D = False
TabOrder = 3
OnKeyPress = edtphoneKeyPress
end
object Memo1: TMemo
Left = 277
Top = 48
Width = 284
Height = 49
Anchors = [akLeft, akTop, akRight]
TabOrder = 4
end
end
object sg2: TStringGrid
Left = 16
Top = 148
Width = 577
Height = 73
Anchors = [akLeft, akTop, akRight, akBottom]
Ctl3D = False
DefaultRowHeight = 18
FixedCols = 0
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
ParentCtl3D = False
TabOrder = 1
OnClick = sg2Click
OnDblClick = sg2DblClick
OnMouseMove = sg2MouseMove
ColWidths = (
43
72
64
120
270)
end
end
end
object TabSheet3: TTabSheet
Caption = #26381#21153#20013#24515#32593#22336
ImageIndex = 2
object Web: TWebBrowser
Left = 0
Top = 0
Width = 610
Height = 225
Align = alClient
TabOrder = 0
OnBeforeNavigate2 = WebBeforeNavigate2
OnDocumentComplete = WebDocumentComplete
ControlData = {
4C0000000C3F0000411700000000000000000000000000000000000000000000
000000004C000000000000000000000001000000E0D057007335CF11AE690800
2B2E126208000000000000004C0000000114020000000000C000000000000046
0000000000000000000000000000000000000000000000000000000000000000
00000000000000000100000000000000000000000000000000000000}
end
end
end
object Edit1: TEdit
Left = 224
Top = 6
Width = 397
Height = 18
Anchors = [akLeft, akTop, akRight]
Color = clScrollBar
Ctl3D = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentCtl3D = False
ParentFont = False
TabOrder = 1
Visible = False
end
end
object memosms: TFlatPanel
Left = 164
Top = 223
Width = 297
Height = 25
Color = clInfoBk
Visible = False
TabOrder = 3
object Label10: TLabel
Left = 6
Top = 6
Width = 288
Height = 16
AutoSize = False
Caption = 'kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk'
Transparent = True
WordWrap = True
end
end
object pp: TPanel
Left = 184
Top = 256
Width = 273
Height = 57
BevelOuter = bvNone
Color = clBlack
TabOrder = 5
Visible = False
end
object pp1: TFlatPanel
Left = 176
Top = 248
Width = 273
Height = 57
Caption = #27491#22312#21457#36865#65292#35831#31245#20505'......'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
ParentColor = True
Visible = False
ColorShadow = clGreen
TabOrder = 4
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -