📄 formupload.dfm
字号:
object frmFilesUpload: TfrmFilesUpload
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'HTTP'#19978#20256#25991#20214
ClientHeight = 327
ClientWidth = 559
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object lblFile: TLabel
Left = 8
Top = 200
Width = 28
Height = 13
Caption = #25991#20214':'
end
object lblFileName: TLabel
Left = 42
Top = 200
Width = 407
Height = 13
AutoSize = False
Caption = 'lblFileName'
end
object lblTotalProgress: TLabel
Left = 8
Top = 242
Width = 40
Height = 13
Caption = #24635#36827#24230':'
end
object lblAllFilesProgress: TLabel
Left = 70
Top = 242
Width = 17
Height = 13
Caption = '0%'
end
object Bevel: TBevel
Left = 8
Top = 284
Width = 545
Height = 3
Shape = bsBottomLine
end
object lblUploadSpeed: TLabel
Left = 168
Top = 242
Width = 52
Height = 13
Caption = #19978#20256#36895#24230':'
end
object lblUploadRate: TLabel
Left = 240
Top = 242
Width = 22
Height = 13
Caption = '0B/S'
end
object lblFileList: TLabel
Left = 8
Top = 4
Width = 65
Height = 13
Caption = #25991#20214#28165#21333'(&L):'
FocusControl = lvwUploadFiles
end
object btnUpload: TButton
Left = 335
Top = 293
Width = 75
Height = 25
Caption = #19978#20256'(&U)'
TabOrder = 0
OnClick = btnUploadClick
end
object prbAllFilesUpload: TProgressBar
Left = 8
Top = 261
Width = 545
Height = 17
Smooth = True
Step = 1
TabOrder = 1
end
object lvwUploadFiles: TListView
Left = 8
Top = 23
Width = 545
Height = 162
Columns = <
item
Width = 40
end
item
Caption = #25991#20214
Width = 340
end
item
Alignment = taCenter
Caption = #22823#23567
Width = 100
end
item
Alignment = taCenter
Caption = #36827#24230
Width = 60
end
item
Caption = #21464#37327
Width = 60
end>
RowSelect = True
TabOrder = 2
ViewStyle = vsReport
end
object prbSingleFileUpload: TProgressBar
Left = 8
Top = 219
Width = 545
Height = 17
Smooth = True
Step = 1
TabOrder = 3
end
object btnCancel: TBitBtn
Left = 448
Top = 293
Width = 75
Height = 25
Caption = #21462#28040'(&C)'
TabOrder = 4
OnClick = btnCancelClick
end
object WinHTTP: TWinHTTP
AcceptTypes = 'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8'
AddHeaders.Strings = (
'Accept-Language: zh-cn,zh;q=0.5'
'Accept-Encoding: gzip,deflate'
'Accept-Charset: gb2312,utf-8;q=0.7,*;q=0.7')
Agent =
'Mozilla/5.0 (Windows; U; Windows NT 5.1; zh-CN; rv:1.9.0.6) Geck' +
'o/2009011913 Firefox/3.0.6'
RequestMethod = rmPOST
OnDone = WinHTTPDone
OnUploadProgress = WinHTTPUploadProgress
OnUploadFieldRequest = WinHTTPUploadFieldRequest
OnHTTPError = WinHTTPHTTPError
Left = 8
Top = 288
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -