frmserverform.dfm

来自「数据通信,没什么很详细的,只是一个素材源玛」· DFM 代码 · 共 105 行

object frmServer: TfrmServer
  Left = 378
  Top = 132
  Width = 288
  Height = 480
  Caption = 'Server'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 280
    Height = 49
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 19
      Height = 13
      Caption = 'Port'
    end
    object sptPort: TSpinEdit
      Left = 48
      Top = 8
      Width = 57
      Height = 22
      MaxValue = 0
      MinValue = 0
      TabOrder = 0
      Value = 6000
    end
    object btnStart: TBitBtn
      Left = 112
      Top = 8
      Width = 75
      Height = 25
      Caption = '&Start'
      TabOrder = 1
      OnClick = btnStartClick
    end
    object btnStop: TBitBtn
      Left = 192
      Top = 8
      Width = 75
      Height = 25
      Caption = 'S&top'
      Enabled = False
      TabOrder = 2
      OnClick = btnStopClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 416
    Width = 280
    Height = 30
    Panels = <>
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 49
    Width = 280
    Height = 367
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 2
    object TabSheet1: TTabSheet
      Caption = 'Log'
      object memLog: TMemo
        Left = 0
        Top = 0
        Width = 272
        Height = 339
        Align = alClient
        Lines.Strings = (
          'memLog')
        TabOrder = 0
      end
    end
  end
  object IdTCPServer: TIdTCPServer
    Bindings = <>
    CommandHandlers = <>
    DefaultPort = 0
    Greeting.NumericCode = 0
    MaxConnectionReply.NumericCode = 0
    OnConnect = IdTCPServerConnect
    OnExecute = IdTCPServerExecute
    OnDisconnect = IdTCPServerDisconnect
    ReplyExceptionCode = 0
    ReplyTexts = <>
    ReplyUnknownCommand.NumericCode = 0
    Left = 28
    Top = 273
  end
end