📄 urpl.dfm

📁 关于利用DELPHI来进行企业级方案解决的著作的附书源码
💻 DFM
字号:
object RPL: TRPL
  OldCreateOrder = False
  PageProducer = AdapterPageProducer
  Left = 383
  Top = 247
  Height = 150
  Width = 215
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 48
    Top = 8
    object LayoutGroup1: TLayoutGroup
      DisplayColumns = -1
      object AdapterForm1: TAdapterForm
        object AdapterFieldGroup1: TAdapterFieldGroup
          Adapter = WDM.dsaBBS
          object LayoutGroup2: TLayoutGroup
            DisplayColumns = 2
            object Title: TAdapterDisplayField
              Caption = #26631#39064#65306
              DisplayWidth = 50
              FieldName = 'Title'
            end
            object about: TAdapterDisplayField
              Caption = #20998#31867#65306
              DisplayWidth = 10
              FieldName = 'about'
            end
            object pubTime: TAdapterDisplayField
              Caption = #26102#38388#65306
              DisplayWidth = 18
              FieldName = 'pubTime'
            end
            object Name: TAdapterDisplayField
              Caption = #20316#32773#65306
              DisplayWidth = 10
              FieldName = 'Name'
            end
          end
          object LayoutGroup3: TLayoutGroup
            DisplayColumns = -1
            object Content: TAdapterDisplayField
              Caption = #20869#23481#65306
              DisplayWidth = 60
              FieldName = 'Content'
              TextAreaWrap = wrVirtual
            end
          end
        end
        object AdapterGrid1: TAdapterGrid
          Adapter = WDM.dsaBBSRPL
          object ColContent: TAdapterDisplayColumn
            Caption = #22238#22797#20869#23481
            FieldName = 'Content'
          end
          object ColName: TAdapterDisplayColumn
            Caption = #20316#32773
            FieldName = 'Name'
          end
          object ColpubTime: TAdapterDisplayColumn
            Caption = #22238#22797#26102#38388
            FieldName = 'pubTime'
          end
        end
        object AdapterCommandGroup1: TAdapterCommandGroup
          DisplayComponent = AdapterGrid1
          object CmdNewRow: TAdapterActionButton
            ActionName = 'NewRow'
            Caption = #25105#35201#21457#35328
            PageName = 'AddRPL'
          end
        end
      end
    end
  end
end
⌨️ 快捷键说明

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