简单的delphi udp聊天系统,简单的delphi udp聊天系统
源代码在线查看： zhuce.dfm
object ZhuceForm: TZhuceForm
Left = 351
Top = 225
HorzScrollBar.Color = clWhite
HorzScrollBar.ParentColor = False
Align = alCustom
BorderIcons = [biSystemMenu]
BorderStyle = bsToolWindow
Caption = #27426#36814#29992#25143#27880#20876#65281
ClientHeight = 274
ClientWidth = 375
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 21
Top = 82
Width = 49
Height = 17
AutoSize = False
Caption = #29992#25143#21517
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 39
Top = 140
Width = 32
Height = 16
AutoSize = False
Caption = #23494#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 7
Top = 171
Width = 65
Height = 16
AutoSize = False
Caption = #30830#35748#23494#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 75
Top = 110
Width = 201
Height = 19
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 35
Top = 32
Width = 297
Height = 24
AutoSize = False
Caption = #27426#36814#27880#20876#25104#20026#26032#20250#21592#65281#65281#65281
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label6: TLabel
Left = 209
Top = 170
Width = 65
Height = 21
Alignment = taCenter
AutoSize = False
Caption = '0D2ab'
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label7: TLabel
Left = 281
Top = 138
Width = 91
Height = 21
Alignment = taCenter
AutoSize = False
Caption = #36755#20837#39564#35777#30721
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object User2: TEdit
Left = 75
Top = 80
Width = 121
Height = 21
TabOrder = 0
end
object Password2: TEdit
Left = 75
Top = 138
Width = 121
Height = 21
PasswordChar = '*'
TabOrder = 1
end
object Password3: TEdit
Left = 75
Top = 168
Width = 121
Height = 21
PasswordChar = '*'
TabOrder = 2
end
object BitBtn1: TBitBtn
Left = 74
Top = 206
Width = 64
Height = 25
Caption = #25552#20132
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
OnClick = BitBtn1Click
end
object BitBtn2: TBitBtn
Left = 152
Top = 206
Width = 64
Height = 25
Caption = #37325#35774
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
OnClick = BitBtn2Click
end
object check: TBitBtn
Left = 207
Top = 80
Width = 153
Height = 21
BiDiMode = bdLeftToRight
Caption = #26816#27979#29992#25143#21517#26159#21542#23384#22312
Font.Charset = DEFAULT_CHARSET
Font.Color = clTeal
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentBiDiMode = False
ParentFont = False
TabOrder = 5
OnClick = checkClick
end
object validate: TEdit
Left = 209
Top = 138
Width = 65
Height = 21
TabOrder = 6
end
object Push: TBitBtn
Left = 289
Top = 168
Width = 57
Height = 21
Caption = #21047#26032
Font.Charset = DEFAULT_CHARSET
Font.Color = clOlive
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
OnClick = PushClick
end
end
