uiforms.dfm

delphi完成端口Socks例子,纯Delphi做的

object Form1: TForm1
  Left = 244
  Top = 120
  BorderStyle = bsDialog
  Caption = 'Socks'
  ClientHeight = 628
  ClientWidth = 944
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  DesignSize = (
    944
    628)
  PixelsPerInch = 96
  TextHeight = 12
  object RzPageControl1: TRzPageControl
    Left = 8
    Top = 8
    Width = 928
    Height = 609
    ActivePage = RzTabSheet2
    Anchors = [akLeft, akTop, akRight, akBottom]
    TabIndex = 1
    TabOrder = 0
    FixedDimension = 18
    object RzTabSheet1: TRzTabSheet
      Caption = 'Server'
      object RzListView1: TRzListView
        Left = 0
        Top = 0
        Width = 924
        Height = 587
        Align = alClient
        Columns = <
          item
            Caption = 'Name'
            Width = 120
          end
          item
            Caption = 'Address'
            Width = 100
          end
          item
            Caption = 'Status'
            Width = 683
          end>
        FrameHotTrack = True
        FrameVisible = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
      end
    end
    object RzTabSheet2: TRzTabSheet
      Caption = 'Clients'
      object RzListView2: TRzListView
        Left = 0
        Top = 0
        Width = 924
        Height = 587
        Align = alClient
        Columns = <
          item
            Caption = 'Name'
            Width = 120
          end
          item
            Caption = 'Address'
            Width = 100
          end
          item
            Caption = 'Status'
            Width = 683
          end>
        FrameVisible = True
        RowSelect = True
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = RzListView2DblClick
      end
    end
  end
end