pd.dfm

来自「窗口中的多个文本框的值 使用循环方式取得」· DFM 代码 · 共 2,582 行 · 第 1/4 页

DFM
2,582 行
字号
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

pd.dfm - 源码说明

本页面展示了「窗口中的多个文本框的值 使用循环方式取得」中的 pd.dfm 源码文件，采用 DFM 编程语言编写，共 2,582 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与文本框相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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