main.dfm

这是一套全面的网络组件

object Form1: TForm1
  Left = 251
  Top = 116
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 396
  ClientWidth = 504
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 61
    Height = 13
    Caption = 'News Server'
  end
  object Label2: TLabel
    Left = 24
    Top = 48
    Width = 59
    Height = 13
    Caption = 'News Group'
  end
  object edtNewsServer: TEdit
    Left = 96
    Top = 16
    Width = 369
    Height = 21
    TabOrder = 0
    Text = 'newsgroups.borland.com'
  end
  object btnConnect: TButton
    Left = 16
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 2
    OnClick = btnConnectClick
  end
  object tvArticles: TTreeView
    Left = 16
    Top = 120
    Width = 473
    Height = 97
    Enabled = False
    Indent = 19
    ReadOnly = True
    TabOrder = 6
    OnChange = tvArticlesChange
    OnDeletion = tvArticlesDeletion
  end
  object memBody: TMemo
    Left = 16
    Top = 224
    Width = 473
    Height = 161
    Enabled = False
    ReadOnly = True
    ScrollBars = ssBoth
    TabOrder = 7
  end
  object cbNewsGroup: TComboBox
    Left = 96
    Top = 48
    Width = 369
    Height = 21
    Enabled = False
    ItemHeight = 13
    TabOrder = 1
    Text = 'borland.public.test'
  end
  object btnPostNew: TButton
    Left = 328
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Post New...'
    Enabled = False
    TabOrder = 4
    OnClick = btnPostNewClick
  end
  object btnReply: TButton
    Left = 408
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Reply...'
    Enabled = False
    TabOrder = 5
    OnClick = btnReplyClick
  end
  object btnGetArticles: TButton
    Left = 96
    Top = 88
    Width = 75
    Height = 25
    Caption = 'Get Articles'
    Enabled = False
    TabOrder = 3
    OnClick = btnGetArticlesClick
  end
  object clNNTP: TclNntp
    NewsAgent = 'Clever Internet Suite v 6.0'
    OnGroupOverview = clNNTPGroupOverview
    Left = 56
    Top = 160
  end
  object clMailMessage: TclMailMessage
    Date = 38339.696624768500000000
    CharSet = 'iso-8859-1'
    ContentType = 'text/plain'
    MimeOLE = 'Produced By Clever Internet Suite MimeOLE v 6.0'
    Left = 104
    Top = 160
  end
end