serverfrm.dfm

来自「《delphi深度编程及其项目开发》」· DFM 代码 · 共 140 行

object FrmMain: TFrmMain
  Left = 203
  Top = 150
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'WinSock API '#31034#20363'-'#26381#21153#22120#31471#25509#25910
  ClientHeight = 109
  ClientWidth = 263
  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 StaBar: TStatusBar
    Left = 0
    Top = 90
    Width = 263
    Height = 19
    Panels = <>
    SimplePanel = True
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 263
    Height = 57
    Align = alTop
    TabOrder = 1
    object Label2: TLabel
      Left = 29
      Top = 26
      Width = 60
      Height = 12
      Caption = #25509#25910#31471#21475#65306
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object OtherPort: TEdit
      Left = 93
      Top = 21
      Width = 140
      Height = 20
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 57
    Width = 263
    Height = 33
    Align = alClient
    TabOrder = 2
    object btnListen: TBitBtn
      Left = 13
      Top = 4
      Width = 60
      Height = 22
      Caption = #30417#21548'(&L)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = btnListenClick
      NumGlyphs = 2
    end
    object btnRecv: TBitBtn
      Left = 73
      Top = 4
      Width = 60
      Height = 22
      Caption = #25509#25910'(&R)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = btnRecvClick
      NumGlyphs = 2
    end
    object btnStop: TBitBtn
      Left = 133
      Top = 4
      Width = 60
      Height = 22
      Caption = #20572#27490'(&P)'
      Enabled = False
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = btnStopClick
      NumGlyphs = 2
    end
    object btnExit: TBitBtn
      Left = 193
      Top = 4
      Width = 60
      Height = 22
      Caption = #36864#20986'(&E)'
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = btnExitClick
      NumGlyphs = 2
    end
  end
  object SaveDialog1: TSaveDialog
    Left = 216
    Top = 8
  end
end