uclient.dfm

一个很好的学习例子,有需要的请下载研究,

object frmMain: TfrmMain
  Left = 192
  Top = 243
  BorderStyle = bsDialog
  Caption = 'PrExim Client'
  ClientHeight = 237
  ClientWidth = 446
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object FunctionsList: TListBox
    Left = 0
    Top = 0
    Width = 113
    Height = 237
    Align = alLeft
    ItemHeight = 13
    Items.Strings = (
      'Login'
      'Logout'
      'GetUserProfile'
      'Send'
      'connect'
      'SendFolder'
      'GetAllFaxes'
      'CreateFolder')
    TabOrder = 0
    OnClick = FunctionsListClick
  end
  object Panel1: TPanel
    Left = 113
    Top = 0
    Width = 333
    Height = 237
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object pgCtrl: TPageControl
      Left = 0
      Top = 0
      Width = 333
      Height = 201
      ActivePage = TabSheet1
      Align = alClient
      TabOrder = 0
      object tbsLogin: TTabSheet
        Caption = 'tbsLogin'
        TabVisible = False
        object lbeUsername: TLabeledEdit
          Left = 8
          Top = 24
          Width = 121
          Height = 21
          EditLabel.Width = 48
          EditLabel.Height = 13
          EditLabel.Caption = 'Username'
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 0
          Text = 'username'
        end
        object lbePassword: TLabeledEdit
          Left = 8
          Top = 72
          Width = 121
          Height = 21
          EditLabel.Width = 46
          EditLabel.Height = 13
          EditLabel.Caption = 'Password'
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 1
          Text = 'password'
        end
      end
      object tbsL: TTabSheet
        Caption = 'tbsL'
        ImageIndex = 1
        TabVisible = False
      end
      object TabSheet3: TTabSheet
        Caption = 'lbGetUserProfile'
        ImageIndex = 2
        TabVisible = False
        object mmProfile: TMemo
          Left = 0
          Top = 0
          Width = 325
          Height = 191
          Align = alClient
          TabOrder = 0
        end
      end
      object TabSheet4: TTabSheet
        Caption = 'Send'
        ImageIndex = 3
        TabVisible = False
        object lbeStreamFile: TLabeledEdit
          Left = 16
          Top = 48
          Width = 273
          Height = 21
          EditLabel.Width = 97
          EditLabel.Height = 13
          EditLabel.Caption = 'Load stream from file'
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 0
          Text = 'C:\linux.txt'
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Connect'
        ImageIndex = 4
        TabVisible = False
        object Label1: TLabel
          Left = 16
          Top = 72
          Width = 19
          Height = 13
          Caption = 'Port'
        end
        object lbeHost: TLabeledEdit
          Left = 16
          Top = 32
          Width = 121
          Height = 21
          EditLabel.Width = 22
          EditLabel.Height = 13
          EditLabel.Caption = 'Host'
          LabelPosition = lpAbove
          LabelSpacing = 3
          TabOrder = 0
          Text = '10.39.100.62'
        end
        object lbePort: TEdit
          Left = 16
          Top = 88
          Width = 121
          Height = 21
          TabOrder = 1
          Text = '5100'
        end
      end
    end
    object Panel2: TPanel
      Left = 0
      Top = 201
      Width = 333
      Height = 36
      Align = alBottom
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 1
      object btnExecute: TButton
        Left = 248
        Top = 6
        Width = 75
        Height = 25
        Caption = 'Execute'
        TabOrder = 0
        OnClick = btnExecuteClick
      end
    end
  end
end