u_srv.dfm

一个很好的游戏软件 自己试试看吧 不用多说了吧

object Form1: TForm1
  Left = 287
  Top = 122
  BorderStyle = bsDialog
  Caption = #26381#21153#31471
  ClientHeight = 420
  ClientWidth = 545
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 10
    Top = 19
    Width = 84
    Height = 13
    Caption = #23458#25143#31471#36830#25509#26085#35760
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 218
    Top = 21
    Width = 120
    Height = 13
    Caption = #25509#25910#23458#25143#31471#21457#36865#30340#28040#24687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object MemCliLink: TMemo
    Left = 8
    Top = 40
    Width = 185
    Height = 361
    ScrollBars = ssVertical
    TabOrder = 0
    OnChange = MemCliLinkChange
  end
  object MemCliMsg: TMemo
    Left = 216
    Top = 42
    Width = 319
    Height = 363
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object ServerSocket: TServerSocket
    Active = True
    Port = 987987
    ServerType = stNonBlocking
    OnListen = ServerSocketListen
    OnClientConnect = ServerSocketClientConnect
    OnClientRead = ServerSocketClientRead
    Left = 416
    Top = 8
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db1.mdb;Persist Sec' +
      'urity Info=False'
    Parameters = <>
    Left = 376
    Top = 8
  end
end