remotedirdlunit.~dfm

DELPHI 下远程控制源码

object RemoteDirDLFm: TRemoteDirDLFm
  Left = 148
  Top = 130
  BorderStyle = bsDialog
  Caption = #36828#31243#30446#24405#19979#36733
  ClientHeight = 214
  ClientWidth = 393
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  DesignSize = (
    393
    214)
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 4
    Top = 71
    Width = 60
    Height = 13
    Caption = #25991#20214#21517#31216#65306
  end
  object Label1: TLabel
    Left = 4
    Top = 94
    Width = 60
    Height = 13
    Caption = #20849#26377#25991#20214#65306
  end
  object Label5: TLabel
    Left = 4
    Top = 117
    Width = 72
    Height = 13
    Caption = #19979#36733#21040#26412#22320#65306
  end
  object Label6: TLabel
    Left = 4
    Top = 141
    Width = 72
    Height = 13
    Caption = #36828#31243#36335#24452#21517#65306
  end
  object Edit3: TEdit
    Left = 86
    Top = 140
    Width = 300
    Height = 16
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    BevelInner = bvNone
    BevelOuter = bvNone
    BiDiMode = bdRightToLeftNoAlign
    BorderStyle = bsNone
    Color = cl3DLight
    ParentBiDiMode = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    Text = 'money'
    OnMouseMove = Edit3MouseMove
  end
  object Edit2: TEdit
    Left = 86
    Top = 117
    Width = 300
    Height = 16
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    BevelInner = bvNone
    BevelOuter = bvNone
    BiDiMode = bdRightToLeft
    BorderStyle = bsNone
    Color = cl3DLight
    ParentBiDiMode = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Text = 'desktop'
    OnMouseMove = Edit3MouseMove
  end
  object Edit4: TEdit
    Left = 86
    Top = 94
    Width = 300
    Height = 16
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = cl3DLight
    ParentShowHint = False
    ShowHint = True
    TabOrder = 2
    Text = '0'
    OnMouseMove = Edit3MouseMove
  end
  object Edit1: TEdit
    Left = 86
    Top = 71
    Width = 300
    Height = 16
    Anchors = [akLeft, akTop, akRight]
    AutoSize = False
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = cl3DLight
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = '0'
    OnMouseMove = Edit3MouseMove
  end
  object Animate1: TAnimate
    Left = 0
    Top = 0
    Width = 393
    Height = 60
    Align = alTop
    Active = False
    CommonAVI = aviCopyFiles
    StopFrame = 34
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 164
    Width = 393
    Height = 14
    Align = alBottom
    Min = 0
    Max = 100
    Step = 1
    TabOrder = 5
  end
  object Panel1: TPanel
    Left = 0
    Top = 178
    Width = 393
    Height = 36
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 6
    object BitBtn3: TBitBtn
      Left = 248
      Top = 7
      Width = 68
      Height = 25
      Caption = #24320#22987#19979#36733
      TabOrder = 0
      OnClick = BitBtn3Click
    end
    object BitBtn1: TBitBtn
      Left = 320
      Top = 7
      Width = 68
      Height = 25
      Caption = #20851#38381
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object CheckBox1: TCheckBox
      Left = 8
      Top = 12
      Width = 153
      Height = 17
      Caption = #19979#36733#23436#27605#21518#33258#21160#20851#38381#31383#21475
      Checked = True
      State = cbChecked
      TabOrder = 2
    end
    object BitBtn2: TBitBtn
      Left = 176
      Top = 7
      Width = 68
      Height = 25
      Caption = #20572#27490#19979#36733
      TabOrder = 3
      OnClick = BitBtn2Click
    end
  end
  object DownLoadTcp: TIdTCPClient
    OnWork = DownLoadTcpWork
    OnWorkBegin = DownLoadTcpWorkBegin
    Port = 0
    Left = 272
    Top = 64
  end
end