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

📄 pd.dfm

📁 窗口中的多个文本框的值 使用循环方式取得
💻 DFM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
    Left = 48
    Top = 87
    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 = 2
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit4: TEdit
    Left = 48
    Top = 118
    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 = 3
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit5: TEdit
    Left = 48
    Top = 149
    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 = 4
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit6: TEdit
    Left = 48
    Top = 180
    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 = 5
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit7: TEdit
    Left = 48
    Top = 211
    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 = 6
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit8: TEdit
    Left = 48
    Top = 242
    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 = 7
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit9: TEdit
    Left = 48
    Top = 273
    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 = 8
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit10: TEdit
    Left = 48
    Top = 304
    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 = 9
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit11: TEdit
    Left = 48
    Top = 335
    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 = 10
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit12: TEdit
    Left = 48
    Top = 366
    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 = 11
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit13: TEdit
    Left = 48
    Top = 397
    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 = 12
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit14: TEdit
    Left = 48
    Top = 428
    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 = 13
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit15: TEdit
    Left = 48
    Top = 459
    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 = 14
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit16: TEdit
    Left = 48
    Top = 490
    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 = 15
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit17: TEdit
    Left = 48
    Top = 521
    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 = 16
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit18: TEdit
    Left = 168
    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 = 17
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit19: TEdit
    Left = 168
    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 = 18
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit20: TEdit
    Left = 168
    Top = 87
    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 = 19
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit21: TEdit
    Left = 168
    Top = 118
    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 = 20
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit22: TEdit
    Left = 168
    Top = 149
    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 = 21
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit23: TEdit
    Left = 168
    Top = 180
    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 = 22
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit24: TEdit
    Left = 168
    Top = 211
    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 = 23
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit25: TEdit
    Left = 168
    Top = 242
    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 = 24
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit26: TEdit
    Left = 168
    Top = 273
    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 = 25
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit27: TEdit
    Left = 168
    Top = 304
    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 = 26
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit28: TEdit
    Left = 168
    Top = 335
    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 = 27
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit29: TEdit
    Left = 168
    Top = 366
    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 = 28
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit30: TEdit
    Left = 168
    Top = 397
    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 = 29
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit31: TEdit
    Left = 168
    Top = 428
    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 = 30
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit32: TEdit
    Left = 168
    Top = 459
    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 = 31
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit33: TEdit
    Left = 168
    Top = 490
    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 = 32
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit34: TEdit
    Left = 168
    Top = 521
    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
    ReadOnly = True
    TabOrder = 33
  end
  object Edit35: TEdit
    Left = 324
    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 = 34
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit36: TEdit
    Left = 324
    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 = 35
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit37: TEdit
    Left = 324
    Top = 87
    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 = 36
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit38: TEdit
    Left = 324
    Top = 118
    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 = 37
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit39: TEdit
    Left = 324
    Top = 149
    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 = 38
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit40: TEdit
    Left = 324
    Top = 180
    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 = 39
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit41: TEdit
    Left = 324
    Top = 211
    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 = 40
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit42: TEdit
    Left = 324
    Top = 242
    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 = 41
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object Edit43: TEdit
    Left = 324
    Top = 273
    Width = 60
    Height = 28
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
1234

⌨️ 快捷键说明

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