⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 pd.dfm

📁 窗口中的多个文本框的值 使用循环方式取得
💻 DFM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    Top = 307
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '10'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label45: TLabel
    Left = 268
    Top = 338
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '11'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label46: TLabel
    Left = 268
    Top = 369
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '12'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label47: TLabel
    Left = 268
    Top = 400
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '13'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label48: TLabel
    Left = 268
    Top = 431
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '14'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label49: TLabel
    Left = 268
    Top = 462
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '15'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label50: TLabel
    Left = 268
    Top = 493
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '16'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label51: TLabel
    Left = 268
    Top = 524
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '17'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label52: TLabel
    Left = 404
    Top = 28
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '18'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label53: TLabel
    Left = 404
    Top = 59
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '19'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label54: TLabel
    Left = 404
    Top = 90
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '20'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label55: TLabel
    Left = 404
    Top = 121
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '21'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label56: TLabel
    Left = 404
    Top = 152
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '22'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label57: TLabel
    Left = 404
    Top = 183
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '23'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label58: TLabel
    Left = 404
    Top = 214
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '24'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label59: TLabel
    Left = 404
    Top = 245
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '25'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label60: TLabel
    Left = 404
    Top = 276
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '26'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label61: TLabel
    Left = 404
    Top = 307
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '27'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label62: TLabel
    Left = 404
    Top = 338
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '28'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label63: TLabel
    Left = 404
    Top = 369
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '29'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label65: TLabel
    Left = 404
    Top = 431
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '31'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label66: TLabel
    Left = 404
    Top = 462
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '32'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label67: TLabel
    Left = 404
    Top = 493
    Width = 45
    Height = 20
    AutoSize = False
    Caption = #23567#35745
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label68: TLabel
    Left = 404
    Top = 524
    Width = 45
    Height = 20
    AutoSize = False
    Caption = #21512#35745
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label69: TLabel
    Left = 560
    Top = 28
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #36141#20080#28857#21345
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label70: TLabel
    Left = 560
    Top = 60
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #27700#30005#36153#29992
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label71: TLabel
    Left = 560
    Top = 92
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #28155#32622#35774#22791
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label72: TLabel
    Left = 560
    Top = 125
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #25991#21270#31649#29702
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label73: TLabel
    Left = 560
    Top = 157
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #30005#20449#26381#21153
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label74: TLabel
    Left = 560
    Top = 189
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #24037#21830#31246#21153
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label75: TLabel
    Left = 560
    Top = 222
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #20844#23433#31649#29702
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label85: TLabel
    Left = 70
    Top = 0
    Width = 125
    Height = 20
    AutoSize = False
    Caption = #32593#36153#25910#20837#26126#32454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label86: TLabel
    Left = 370
    Top = 0
    Width = 125
    Height = 20
    AutoSize = False
    Caption = #21513#31077#25910#20837#26126#32454
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label87: TLabel
    Left = 575
    Top = 0
    Width = 125
    Height = 20
    AutoSize = False
    Caption = #25910#25903#32467#20313#30424#24213
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label80: TLabel
    Left = 560
    Top = 384
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #25910#25903#20004#25269
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label64: TLabel
    Left = 404
    Top = 400
    Width = 45
    Height = 20
    AutoSize = False
    Caption = '30'#31508
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label76: TLabel
    Left = 560
    Top = 254
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #32593#30417#31649#29702
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label77: TLabel
    Left = 560
    Top = 286
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #39321#28895#36141#20080
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label78: TLabel
    Left = 560
    Top = 319
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #20854#23427#25903#20986
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label79: TLabel
    Left = 560
    Top = 351
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #25903#20986#21512#35745
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label81: TLabel
    Left = 560
    Top = 424
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #27599#20154#25237#36164
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label82: TLabel
    Left = 560
    Top = 460
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #25237#36164#21512#35745
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label83: TLabel
    Left = 560
    Top = 496
    Width = 85
    Height = 20
    AutoSize = False
    Caption = #30424#24213#32467#20313
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label84: TLabel
    Left = 545
    Top = 527
    Width = 160
    Height = 20
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clFuchsia
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Edit1: TEdit
    Left = 48
    Top = 25
    Width = 60
    Height = 28
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit2: TEdit
    Left = 48
    Top = 56
    Width = 60
    Height = 28
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit3: TEdit
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -