spformunit.~dfm

短消息的实现参考

object SpForm: TSpForm
  Left = 359
  Top = 159
  Width = 337
  Height = 249
  Caption = 'SP'#26381#21153#25552#20379#21830
  Color = clSkyBlue
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 203
    Width = 329
    Height = 19
    Panels = <
      item
        Text = #27809#26377'TCP'#36830#25509
        Width = 100
      end
      item
        Text = #27809#26377'CMPP'#36830#25509
        Width = 100
      end>
    SimplePanel = False
  end
  object SpClientSocket: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Host = '10.10.101.139'
    Port = 7890
    OnConnect = SpClientSocketConnect
    OnRead = SpClientSocketRead
    Left = 104
    Top = 80
  end
end