clientfrm.dfm

《Delphi 7经典问题解析》源代码 第一到七章 基础篇源程序 应用篇源程序

object FrmMain: TFrmMain
  Left = 219
  Top = 206
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'WinSock API '#31034#20363'-'#25991#20214#21457#36865#31243#24207
  ClientHeight = 150
  ClientWidth = 312
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object progressBar: TProgressBar
    Left = 0
    Top = 0
    Width = 312
    Height = 18
    Align = alTop
    Min = 0
    Max = 100
    TabOrder = 0
  end
  object Statusbar: TStatusBar
    Left = 0
    Top = 131
    Width = 312
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 18
    Width = 312
    Height = 113
    Align = alClient
    TabOrder = 2
    object Label1: TLabel
      Left = 14
      Top = 13
      Width = 84
      Height = 12
      Caption = #25509#25910#26041'IP'#22320#22336#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 14
      Top = 45
      Width = 72
      Height = 12
      Caption = #25509#25910#26041#31471#21475#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object btnSend: TBitBtn
      Left = 85
      Top = 81
      Width = 66
      Height = 25
      Caption = #21457#36865'(S)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnSendClick
      NumGlyphs = 2
    end
    object btnStop: TBitBtn
      Left = 162
      Top = 81
      Width = 66
      Height = 25
      Caption = #20572#27490'(P)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnStopClick
      NumGlyphs = 2
    end
    object btnExit: TBitBtn
      Left = 240
      Top = 81
      Width = 66
      Height = 25
      Caption = #36864#20986'(&E)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnExitClick
      NumGlyphs = 2
    end
    object edtIP: TEdit
      Left = 96
      Top = 10
      Width = 209
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
    end
    object edtPort: TEdit
      Left = 96
      Top = 40
      Width = 209
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 4
    end
    object btnConnect: TBitBtn
      Left = 8
      Top = 81
      Width = 66
      Height = 25
      Caption = #36830#25509'(&C)'
      TabOrder = 5
      OnClick = btnConnectClick
    end
  end
  object OpenDFile: TOpenDialog
    InitialDir = 'c:\'
    Title = #35831#36873#25321#35201#20256#36865#30340#25991#20214
    Left = 240
  end
end