multiple_dm.dfm

来自「delphi6 programming example」· DFM 代码 · 共 81 行

DFM

81 行

object multiple: Tmultiple
  OldCreateOrder = False
  OnActivate = WebPageModuleActivate
  PageProducer = AdapterPageProducer
  Left = 361
  Top = 101
  Height = 150
  Width = 215
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 48
    Top = 8
    object AdapterForm1: TAdapterForm
      object AdapterGrid1: TAdapterGrid
        TableAttributes.CellSpacing = 0
        TableAttributes.CellPadding = 3
        Adapter = PagedAdapter1
        object ColNumber: TAdapterDisplayColumn
          FieldName = 'Number'
        end
        object ColSquare: TAdapterDisplayColumn
          FieldName = 'Square'
        end
      end
      object AdapterCommandGroup1: TAdapterCommandGroup
        DisplayComponent = AdapterGrid1
        object CmdPrevPage: TAdapterActionButton
          ActionName = 'PrevPage'
        end
        object CmdGotoPage: TAdapterActionButton
          ActionName = 'GotoPage'
          Caption = '1'
        end
        object CmdNextPage: TAdapterActionButton
          ActionName = 'NextPage'
        end
      end
    end
  end
  object PagedAdapter1: TPagedAdapter
    OnGetRecordIndex = PagedAdapter1GetRecordIndex
    OnGetRecordCount = PagedAdapter1GetRecordCount
    OnGetEOF = PagedAdapter1GetEOF
    OnGetFirstRecord = PagedAdapter1GetFirstRecord
    OnGetNextRecord = PagedAdapter1GetNextRecord
    PageSize = 20
    Left = 48
    Top = 64
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
      object Number: TAdapterMultiValueField
        OnGetValues = NumberGetValues
        OnGetValueCount = NumberGetValueCount
      end
      object Square: TAdapterMultiValueField
        OnGetValues = SquareGetValues
        OnGetValueCount = NumberGetValueCount
      end
      object AdapterField: TAdapterField
        OnGetValue = AdapterFieldGetValue
      end
    end
  end
  object NumbersList: TStringsValuesList
    Left = 128
    Top = 64
    object TAdapterDefaultActions
    end
    object TAdapterDefaultFields
    end
  end
end

multiple_dm.dfm - 源码说明

本页面展示了「delphi6 programming example」中的 multiple_dm.dfm 源码文件，采用 DFM 编程语言编写，共 81 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?