uploadunit.~dfm

DELPHI 下远程控制源码

object UpLoadFm: TUpLoadFm
  Left = 266
  Top = 192
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #19978#20256#25991#20214#65306
  ClientHeight = 197
  ClientWidth = 378
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  Position = poScreenCenter
  DesignSize = (
    378
    197)
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 0
    Top = 157
    Width = 378
    Height = 4
    Align = alBottom
    Shape = bsTopLine
  end
  object Label1: TLabel
    Left = 8
    Top = 72
    Width = 60
    Height = 13
    Caption = #25991#20214#21517#31216#65306
  end
  object Label2: TLabel
    Left = 8
    Top = 96
    Width = 60
    Height = 13
    Caption = #26412#22320#30446#24405#65306
  end
  object Label3: TLabel
    Left = 8
    Top = 120
    Width = 60
    Height = 13
    Caption = #36828#31243#30446#24405#65306
  end
  object Panel1: TPanel
    Left = 0
    Top = 161
    Width = 378
    Height = 36
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object BitBtn1: TBitBtn
      Left = 5
      Top = 6
      Width = 68
      Height = 25
      Caption = #31383#21475#20851#38381
      Enabled = False
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 231
      Top = 6
      Width = 68
      Height = 25
      Caption = #24320#22987#19978#20256
      TabOrder = 1
      OnClick = BitBtn2Click
    end
    object CheckBox1: TCheckBox
      Left = 77
      Top = 9
      Width = 139
      Height = 17
      Caption = #19978#20256#32467#26463#21518#20851#38381#31383#21475
      TabOrder = 2
    end
    object BitBtn3: TBitBtn
      Left = 304
      Top = 6
      Width = 68
      Height = 25
      Caption = #21462' '#28040
      TabOrder = 3
      OnClick = BitBtn3Click
    end
  end
  object ProgressBar1: TProgressBar
    Left = 0
    Top = 141
    Width = 378
    Height = 16
    Align = alBottom
    Min = 0
    Max = 100
    Position = 25
    TabOrder = 1
  end
  object Animate1: TAnimate
    Left = 0
    Top = 0
    Width = 378
    Height = 60
    Align = alTop
    Active = False
    CommonAVI = aviCopyFiles
    StopFrame = 34
  end
  object Edit1: TEdit
    Left = 72
    Top = 71
    Width = 299
    Height = 18
    Anchors = [akLeft, akTop, akRight]
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = cl3DLight
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    Text = 'Edit1'#20013#25991
    OnMouseMove = Edit3MouseMove
  end
  object Edit2: TEdit
    Left = 72
    Top = 95
    Width = 299
    Height = 18
    Anchors = [akLeft, akTop, akRight]
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = cl3DLight
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    Text = 'Edit2'#20013#25991
    OnMouseMove = Edit3MouseMove
  end
  object Edit3: TEdit
    Left = 71
    Top = 119
    Width = 299
    Height = 18
    Anchors = [akLeft, akTop, akRight]
    BevelInner = bvNone
    BevelOuter = bvNone
    BorderStyle = bsNone
    Color = cl3DLight
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    Text = 'Edit3'#20013#25991
    OnMouseMove = Edit3MouseMove
  end
  object UpLoadTcp: TIdTCPClient
    Port = 0
    Left = 104
    Top = 24
  end
end