?? unit1.dfm
字號:
object ForLover: TForLover
Left = 154
Top = 51
BorderStyle = bsSingle
Caption = '網絡時代V1.0正式版 Bcbhua@263.net LoveBcb.yeah.net'
ClientHeight = 475
ClientWidth = 518
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
OldCreateOrder = False
Position = poDefault
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 16
object PCControl: TPageControl
Left = 0
Top = 0
Width = 518
Height = 475
ActivePage = TabSheet2
Align = alClient
Style = tsFlatButtons
TabOrder = 0
object TabSheet1: TTabSheet
Caption = '網上尋呼'
object Splitter3: TSplitter
Left = 153
Top = 256
Width = 3
Height = 185
Cursor = crHSplit
end
object Memo2: TMemo
Left = 0
Top = 256
Width = 153
Height = 185
Align = alLeft
Color = clAqua
ScrollBars = ssVertical
TabOrder = 0
end
object mmStatus: TMemo
Left = 156
Top = 256
Width = 354
Height = 185
Align = alClient
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
end
object Panel4: TPanel
Left = 0
Top = 0
Width = 510
Height = 256
Align = alTop
BevelOuter = bvNone
TabOrder = 2
object Bevel2: TBevel
Left = 0
Top = 0
Width = 510
Height = 2
Align = alTop
Shape = bsTopLine
end
object Panel6: TPanel
Left = 337
Top = 2
Width = 173
Height = 254
Align = alClient
BevelOuter = bvNone
TabOrder = 0
OnResize = Panel6Resize
object Label5: TLabel
Left = 55
Top = 8
Width = 64
Height = 16
Caption = '信息內容'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
Transparent = True
end
object bbtCall: TSpeedButton
Left = 50
Top = 224
Width = 72
Height = 22
Hint = '單擊發送信息!'
Caption = '發送信息'
Flat = True
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
NumGlyphs = 2
ParentFont = False
ParentShowHint = False
ShowHint = True
OnClick = bbtCallClick
end
object mmWord: TMemo
Left = 0
Top = 32
Width = 172
Height = 185
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
Lines.Strings = (
'萬事如意')
MaxLength = 100
ParentFont = False
TabOrder = 0
end
end
object Panel7: TPanel
Left = 0
Top = 2
Width = 337
Height = 254
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
object Label8: TLabel
Left = 48
Top = 8
Width = 72
Height = 16
Caption = '朋友列表:'
Color = clGray
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label1: TLabel
Left = 160
Top = 8
Width = 56
Height = 16
Caption = '尋呼臺:'
Color = clGray
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label7: TLabel
Left = 160
Top = 48
Width = 40
Height = 16
Caption = '臺號:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label2: TLabel
Left = 160
Top = 88
Width = 40
Height = 16
Caption = '號碼:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label4: TLabel
Left = 160
Top = 128
Width = 40
Height = 16
Caption = '貴姓:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label3: TLabel
Left = 160
Top = 168
Width = 40
Height = 16
Caption = '稱呼:'
Color = clNone
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentColor = False
ParentFont = False
Transparent = True
end
object Label6: TLabel
Left = 160
Top = 208
Width = 40
Height = 16
Caption = '機型:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
Transparent = True
end
object LBPassWord: TLabel
Left = 248
Top = 88
Width = 40
Height = 16
Caption = '密碼:'
Font.Charset = GB2312_CHARSET
Font.Color = clBlue
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ParentFont = False
Transparent = True
end
object cbFriend: TListBox
Left = 0
Top = 24
Width = 153
Height = 225
Color = clAqua
ItemHeight = 16
TabOrder = 0
OnClick = cbFriendClick
end
object cbServer: TComboBox
Left = 160
Top = 24
Width = 169
Height = 22
Style = csOwnerDrawFixed
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 1
OnClick = cbServerClick
end
object cbServerCode: TComboBox
Left = 160
Top = 64
Width = 169
Height = 22
Style = csOwnerDrawFixed
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 2
end
object edCallNum: TEdit
Left = 160
Top = 104
Width = 81
Height = 22
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
MaxLength = 20
ParentFont = False
TabOrder = 3
end
object cbName: TComboBox
Left = 160
Top = 144
Width = 169
Height = 24
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ItemHeight = 16
MaxLength = 6
ParentFont = False
TabOrder = 4
Items.Strings = (
'朱'
'王 '
'耿'
'余')
end
object cbSex: TComboBox
Left = 160
Top = 184
Width = 169
Height = 22
Style = csOwnerDrawFixed
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ItemHeight = 16
MaxLength = 6
ParentFont = False
TabOrder = 5
Items.Strings = (
'先生'
'女士')
end
object cbType: TComboBox
Left = 160
Top = 224
Width = 169
Height = 22
Style = csOwnerDrawFixed
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clMaroon
Font.Height = -16
Font.Name = '宋體'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 6
Items.Strings = (
'中文尋呼'
'數字尋呼')
end
object edPassWord: TEdit
Left = 248
Top = 104
Width = 81
Height = 22
Color = clAqua
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋體'
Font.Style = []
ParentFont = False
PasswordChar = '*'
TabOrder = 7
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -