netmain.dfm

Delphi 7组件与分布式应用开发源码,介绍了基础的组件应用实例

object Form1: TForm1
  Left = 255
  Top = 141
  Width = 696
  Height = 480
  ActiveControl = Memo2
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = Button1Click
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 453
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 208
      Top = 24
      Width = 265
      Height = 25
      AutoSize = False
      Caption = #20363'10-2 '#32593#32476#32842#22825#31243#24207#31034#20363
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 40
      Top = 72
      Width = 105
      Height = 16
      AutoSize = False
      Caption = #36828#31243#26426#22120#22320#22336':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 240
      Top = 72
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #36828#31243#31471#21475':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 384
      Top = 72
      Width = 73
      Height = 17
      AutoSize = False
      Caption = #26412#22320#31471#21475':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 40
      Top = 104
      Width = 89
      Height = 16
      AutoSize = False
      Caption = #25910#21040#30340#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 40
      Top = 304
      Width = 89
      Height = 17
      AutoSize = False
      Caption = #21457#36865#30340#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Edit1: TEdit
      Left = 144
      Top = 72
      Width = 89
      Height = 21
      TabOrder = 0
      Text = 'localhost'
    end
    object Edit2: TEdit
      Left = 328
      Top = 72
      Width = 41
      Height = 21
      TabOrder = 1
      Text = '5000'
    end
    object Edit3: TEdit
      Left = 464
      Top = 72
      Width = 41
      Height = 21
      TabOrder = 2
      Text = '5000'
    end
    object Button1: TButton
      Left = 552
      Top = 72
      Width = 75
      Height = 25
      Caption = #30830#35748#20462#25913
      TabOrder = 3
      OnClick = Button1Click
    end
    object Memo1: TMemo
      Left = 40
      Top = 128
      Width = 593
      Height = 169
      ScrollBars = ssVertical
      TabOrder = 4
    end
    object Memo2: TMemo
      Left = 40
      Top = 336
      Width = 505
      Height = 89
      TabOrder = 5
    end
    object Button2: TButton
      Left = 568
      Top = 400
      Width = 75
      Height = 25
      Caption = #21457#36865#20449#24687
      TabOrder = 6
      OnClick = Button2Click
    end
  end
  object TcpServer1: TTcpServer
    OnAccept = TcpServer1Accept
    Left = 576
    Top = 32
  end
  object TcpClient1: TTcpClient
    Left = 536
    Top = 32
  end
end