upip.dfm

参照上兴、鸽子等源码编写编写出来的。 编译环境：Delphi7+SP+DP+indy9等控件

object UpIpDate: TUpIpDate
  Left = 294
  Top = 164
  AutoScroll = False
  BorderIcons = []
  Caption = #33258#21160#19978#32447
  ClientHeight = 331
  ClientWidth = 482
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TspSkinPageControl
    Left = 0
    Top = 0
    Width = 481
    Height = 313
    ActivePage = TabSheet1
    Align = alCustom
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBtnText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Images = ImageList1
    ParentFont = False
    TabOrder = 0
    UseSkinFont = True
    DefaultFont.Charset = DEFAULT_CHARSET
    DefaultFont.Color = clBtnText
    DefaultFont.Height = 14
    DefaultFont.Name = 'Arial'
    DefaultFont.Style = []
    DefaultItemHeight = 20
    SkinData = FormMain.spSkinData1
    SkinDataName = 'tab'
    object TabSheet1: TspSkinTabSheet
      Caption = 'FTP'#26356#26032'IP'
      object Panel1: TspSkinPanel
        Left = 0
        Top = 0
        Width = 479
        Height = 109
        TabOrder = 0
        DrawDefault = True
        SkinData = FormMain.spSkinData1
        SkinDataName = 'panel'
        AlphaBlend = False
        AlphaBlendValue = 200
        UseSkinCursor = False
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        RealHeight = -1
        AutoEnabledControls = True
        CheckedMode = False
        Checked = False
        NumGlyphs = 1
        Spacing = 2
        DefaultAlignment = taLeftJustify
        DefaultCaptionHeight = 22
        BorderStyle = bvFrame
        CaptionMode = False
        RollUpMode = False
        RollUpState = False
        Caption = 'FTP'#26381#21153#22120#20449#24687
        Align = alTop
        object Label2: TspSkinStdLabel
          Left = 38
          Top = 22
          Width = 66
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Caption = 'FTP'#26381#21153#22120#65306
          ParentFont = False
        end
        object Label3: TspSkinStdLabel
          Left = 300
          Top = 22
          Width = 36
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Caption = #31471#21475#65306
          ParentFont = False
        end
        object Label4: TspSkinStdLabel
          Left = 38
          Top = 49
          Width = 48
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Caption = #29992#25143#21517#65306
          ParentFont = False
        end
        object Label5: TspSkinStdLabel
          Left = 38
          Top = 76
          Width = 60
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Caption = #30331#38470#23494#30721#65306
          ParentFont = False
        end
        object Label6: TspSkinStdLabel
          Left = 220
          Top = 76
          Width = 60
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Caption = #23494#30721#30830#35748#65306
          ParentFont = False
        end
        object FTPAdder: TEdit
          Left = 112
          Top = 16
          Width = 145
          Height = 20
          TabOrder = 0
          OnChange = FTPAdderChange
        end
        object FTPPort: TEdit
          Left = 336
          Top = 16
          Width = 41
          Height = 20
          TabOrder = 1
          Text = '21'
          OnChange = FTPPortChange
        end
        object FTPUser: TEdit
          Left = 112
          Top = 46
          Width = 145
          Height = 20
          TabOrder = 2
          OnChange = FTPUserChange
        end
        object FTPPass1: TEdit
          Left = 112
          Top = 74
          Width = 73
          Height = 20
          PasswordChar = '*'
          TabOrder = 3
          OnChange = FTPPass1Change
        end
        object ftppass2: TEdit
          Left = 288
          Top = 74
          Width = 73
          Height = 20
          PasswordChar = '*'
          TabOrder = 4
          OnChange = ftppass2Change
        end
      end
      object Panel2: TspSkinPanel
        Left = 0
        Top = 109
        Width = 479
        Height = 182
        TabOrder = 1
        DrawDefault = True
        SkinData = FormMain.spSkinData1
        SkinDataName = 'panel'
        AlphaBlend = False
        AlphaBlendValue = 200
        UseSkinCursor = False
        DefaultFont.Charset = DEFAULT_CHARSET
        DefaultFont.Color = clWindowText
        DefaultFont.Height = 14
        DefaultFont.Name = 'Arial'
        DefaultFont.Style = []
        UseSkinFont = True
        DefaultWidth = 0
        DefaultHeight = 0
        RealHeight = -1
        AutoEnabledControls = True
        CheckedMode = False
        Checked = False
        NumGlyphs = 1
        Spacing = 2
        DefaultAlignment = taLeftJustify
        DefaultCaptionHeight = 22
        BorderStyle = bvFrame
        CaptionMode = False
        RollUpMode = False
        RollUpState = False
        Caption = #26356#26032'IP'#20449#24687
        Align = alClient
        object Label7: TspSkinStdLabel
          Left = 38
          Top = 18
          Width = 84
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          Caption = #23384#25918'IP'#30340#25991#20214#65306
          ParentFont = False
        end
        object Label8: TspSkinStdLabel
          Left = 38
          Top = 47
          Width = 72
          Height = 12
          UseSkinFont = True
          DefaultFont.Charset = DEFAULT_CHARSET
          DefaultFont.Color = clWindowText
          DefaultFont.Height = -12
          DefaultFont.Name = #23435#20307
          DefaultFont.Style = []
          SkinData = FormMain.spSkinData1
          SkinDataName = 'stdlabel'
          Font.Charset = ANSI_CHARSET
          Font.Color = clBtnText
          Font.Height = -12
          Font.Name = #23435#20307