📄 uemail.dfm

📁 关于利用DELPHI来进行企业级方案解决的著作的附书源码
💻 DFM
字号:
object EmailLogin: TEmailLogin
  OldCreateOrder = False
  OnActivate = WebPageModuleActivate
  PageProducer = AdapterPageProducer
  Left = 572
  Top = 251
  Height = 107
  Width = 263
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 40
    Top = 8
    object AdapterForm1: TAdapterForm
      object LayoutGroup1: TLayoutGroup
        DisplayColumns = -1
        object AdapterFieldGroup1: TAdapterFieldGroup
          Adapter = Adapter1
          object FldadfID: TAdapterDisplayField
            Caption = #29992#25143#24080#21495
            FieldName = 'adfID'
          end
          object FldadfPassword: TAdapterDisplayField
            Caption = #30331#38470#21475#20196
            FieldName = 'adfPassword'
          end
          object FldadfHost: TAdapterDisplayField
            Caption = #37038#20214#26381#21153#22120
            FieldName = 'adfHost'
          end
        end
        object AdapterCommandGroup1: TAdapterCommandGroup
          DisplayComponent = AdapterFieldGroup1
          object CmdadaLogin: TAdapterActionButton
            ActionName = 'adaLogin'
            Caption = #30331#24405
          end
        end
      end
      object LayoutGroup2: TLayoutGroup
        DisplayColumns = -1
        object AdapterFieldGroup2: TAdapterFieldGroup
          Adapter = Adapter1
          object FldadfCount: TAdapterDisplayField
            Caption = #29616#26377#37038#20214#25968#30446':'
            FieldName = 'adfCount'
          end
        end
        object AdapterCommandGroup2: TAdapterCommandGroup
          DisplayComponent = AdapterFieldGroup2
          object CmdadaRead: TAdapterActionButton
            ActionName = 'adaRead'
            Caption = #38405#35835#37038#20214
            PageName = 'ViewMailModule'
          end
          object CmdadaWrite: TAdapterActionButton
            ActionName = 'adaWrite'
            Caption = #25776#20889#37038#20214
            PageName = 'newmail'
          end
        end
      end
    end
  end
  object Adapter1: TAdapter
    Left = 152
    Top = 8
    object TAdapterActions
      object adaLogin: TAdapterAction
        OnExecute = adaLoginExecute
        DisplayLabel = #30331#24405
      end
      object adaRead: TAdapterAction
        DisplayLabel = #38405#35835#37038#20214
      end
      object adaWrite: TAdapterAction
        DisplayLabel = #25776#20889#37038#20214
      end
    end
    object TAdapterFields
      object adfID: TAdapterField
        OnGetValue = adfIDGetValue
        OnGetDisplayText = adfIDGetDisplayText
        DisplayLabel = #29992#25143#24080#21495
      end
      object adfPassword: TAdapterField
        OnGetValue = adfPasswordGetValue
        OnGetDisplayText = adfPasswordGetDisplayText
        DisplayLabel = #30331#38470#21475#20196
      end
      object adfHost: TAdapterField
        OnGetValue = adfHostGetValue
        OnGetDisplayText = adfHostGetDisplayText
        DisplayLabel = #37038#20214#26381#21153#22120
      end
      object adfCount: TAdapterField
        OnGetValue = adfCountGetValue
        DisplayLabel = #29616#26377#37038#20214#25968#30446':'
      end
    end
  end
end
⌨️ 快捷键说明

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