📄 unit1.dfm
字号:
object Form1: TForm1
Left = 192
Top = 140
Width = 443
Height = 391
Caption = 'TCPServer'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
DesignSize = (
435
357)
PixelsPerInch = 96
TextHeight = 13
object btnActiveServer: TButton
Left = 8
Top = 326
Width = 75
Height = 25
Anchors = [akLeft, akBottom]
Caption = 'Active'
TabOrder = 0
OnClick = btnActiveServerClick
end
object btnClose: TButton
Left = 350
Top = 326
Width = 75
Height = 25
Anchors = [akRight, akBottom]
Caption = 'Close'
TabOrder = 1
OnClick = btnCloseClick
end
object redtLog: TRichEdit
Left = 0
Top = 0
Width = 435
Height = 321
Align = alTop
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 2
end
object IdTCPServer: TIdTCPServer
Bindings = <
item
IP = '0.0.0.0'
Port = 2007
end>
DefaultPort = 2007
OnConnect = IdTCPServerConnect
OnDisconnect = IdTCPServerDisconnect
OnException = IdTCPServerException
OnExecute = IdTCPServerExecute
Left = 32
Top = 56
end
object ApplicationEvents: TApplicationEvents
OnException = ApplicationEventsException
Left = 64
Top = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -