u_client.dfm

delphi 完全原代码,可以在d7 and windows xp下编译通过

object F_Client: TF_Client
  Left = 326
  Top = 145
  Width = 462
  Height = 376
  Caption = #32842#22825#23460
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 454
    Height = 342
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 309
      Width = 56
      Height = 13
      Caption = #20320#35828#36947#65306
    end
    object Button1: TButton
      Left = 176
      Top = 16
      Width = 81
      Height = 25
      Caption = '(&C)'#36830#25509#20027#26426
      TabOrder = 0
      OnClick = Button1Click
    end
    object Memo2: TMemo
      Left = 16
      Top = 48
      Width = 425
      Height = 241
      BevelInner = bvNone
      Color = clInfoBk
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 1
    end
    object Memo1: TMemo
      Left = 64
      Top = 304
      Width = 377
      Height = 25
      TabOrder = 2
      OnKeyPress = Memo1KeyPress
    end
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 1024
    OnConnect = ClientSocket1Connect
    OnDisconnect = ClientSocket1Disconnect
    OnRead = ClientSocket1Read
    Left = 328
    Top = 8
  end
end