mainunit.dfm

这是一个使用UDP协议通信的例子程序

object MainForm: TMainForm
  Left = 422
  Top = 305
  Width = 380
  Height = 440
  Caption = #26381#21153#22120#27979#35797#31243#24207
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StaticText1: TStaticText
    Left = 4
    Top = 4
    Width = 70
    Height = 16
    Caption = #26381#21153#22120#29366#24577':'
    TabOrder = 0
  end
  object StateText: TStaticText
    Left = 80
    Top = 4
    Width = 40
    Height = 16
    Caption = #26410#21551#21160
    TabOrder = 1
  end
  object StartButton: TButton
    Left = 28
    Top = 176
    Width = 75
    Height = 21
    Caption = #21551#21160
    TabOrder = 2
    OnClick = StartButtonClick
  end
  object CloseButton: TButton
    Left = 108
    Top = 176
    Width = 75
    Height = 21
    Caption = #20851#38381
    TabOrder = 3
    OnClick = CloseButtonClick
  end
  object IPEdit: TEdit
    Left = 80
    Top = 68
    Width = 125
    Height = 20
    TabOrder = 4
    Text = '192.168.0.1'
  end
  object StaticText2: TStaticText
    Left = 52
    Top = 72
    Width = 22
    Height = 16
    Caption = 'IP:'
    TabOrder = 5
  end
  object StaticText3: TStaticText
    Left = 40
    Top = 96
    Width = 34
    Height = 16
    Caption = 'Port:'
    TabOrder = 6
  end
  object PortEdit: TEdit
    Left = 80
    Top = 92
    Width = 125
    Height = 20
    TabOrder = 7
    Text = '10000'
  end
  object StaticText4: TStaticText
    Left = 16
    Top = 24
    Width = 58
    Height = 16
    Caption = #26412#26426#21517#31216':'
    TabOrder = 8
  end
  object HostNameText: TStaticText
    Left = 80
    Top = 24
    Width = 76
    Height = 16
    Caption = 'HostNameText'
    TabOrder = 9
  end
  object StaticText5: TStaticText
    Left = 16
    Top = 48
    Width = 58
    Height = 16
    Caption = #26412#26426#22320#22336':'
    TabOrder = 10
  end
  object HostIPComboBox: TComboBox
    Left = 80
    Top = 44
    Width = 125
    Height = 20
    ItemHeight = 12
    TabOrder = 11
    Text = '127.0.0.1'
  end
  object SelectIPButton: TButton
    Left = 292
    Top = 44
    Width = 75
    Height = 21
    Caption = #36873#25321
    TabOrder = 12
    OnClick = SelectIPButtonClick
  end
  object StaticText6: TStaticText
    Left = 16
    Top = 120
    Width = 58
    Height = 16
    Caption = #25253#35686#19978#38480':'
    TabOrder = 13
  end
  object WarringMax: TCSpinEdit
    Left = 80
    Top = 116
    Width = 125
    Height = 21
    TabOrder = 14
    Value = 100
  end
  object Max: TCSpinEdit
    Left = 80
    Top = 144
    Width = 125
    Height = 21
    TabOrder = 15
    Value = 125
  end
  object StaticText7: TStaticText
    Left = 16
    Top = 148
    Width = 58
    Height = 16
    Caption = #26368#22823#19978#38480':'
    TabOrder = 16
  end
  object UpdateIPButton: TButton
    Left = 212
    Top = 44
    Width = 75
    Height = 21
    Caption = #21047#26032
    TabOrder = 17
    OnClick = UpdateIPButtonClick
  end
  object Memo: TMemo
    Left = 4
    Top = 204
    Width = 365
    Height = 205
    ScrollBars = ssBoth
    TabOrder = 18
  end
  object ClearLogButton: TButton
    Left = 188
    Top = 176
    Width = 75
    Height = 21
    Caption = #28165#38500#35760#24405
    TabOrder = 19
    OnClick = ClearLogButtonClick
  end
  object SaveToTXTButton: TButton
    Left = 268
    Top = 176
    Width = 75
    Height = 21
    Caption = #23384#25104#25991#20214
    TabOrder = 20
    OnClick = SaveToTXTButtonClick
  end
  object GameTimer: TTimer
    Enabled = False
    Interval = 10
    OnTimer = GameTimerTimer
    Left = 272
    Top = 72
  end
  object SaveDialog: TSaveDialog
    Options = [ofEnableSizing]
    Left = 272
    Top = 124
  end
end