📄 unewmail.dfm

📁 关于利用DELPHI来进行企业级方案解决的著作的附书源码
💻 DFM
字号:
object NewMail: TNewMail
  OldCreateOrder = False
  PageProducer = AdapterPageProducer
  Left = 389
  Top = 304
  Height = 107
  Width = 405
  object AdapterPageProducer: TAdapterPageProducer
    HTMLDoc.Strings = (
      '<html>'
      '<head>'
      '</head>'
      '<body>'
      '<#STYLES><#WARNINGS><#SERVERSCRIPT>'
      '</body>'
      '</html>')
    Left = 48
    Top = 8
    object AdapterForm1: TAdapterForm
      object AdapterFieldGroup1: TAdapterFieldGroup
        Adapter = EmailMessage
        object FldadfFrom: TAdapterDisplayField
          Caption = #21457#20214#20154
          DisplayWidth = 80
          FieldName = 'adfFrom'
        end
        object FldadfTo: TAdapterDisplayField
          Caption = #25910#20214#20154
          DisplayWidth = 80
          FieldName = 'adfTo'
        end
        object FldadfSubject: TAdapterDisplayField
          Caption = #20027#39064
          DisplayWidth = 80
          FieldName = 'adfSubject'
        end
        object FldadfBody: TAdapterDisplayField
          Caption = #20869#23481
          DisplayWidth = 70
          FieldName = 'adfBody'
          DisplayType = dftText
          TextAreaWrap = wrPhysical
          DisplayRows = 10
          InputType = iftTextArea
        end
      end
      object AdapterCommandGroup1: TAdapterCommandGroup
        DisplayComponent = AdapterFieldGroup1
        object CmdadaOK: TAdapterActionButton
          ActionName = 'adaOK'
          Caption = #21457#36865
          Align = haCenter
          VAlign = haMiddle
        end
      end
    end
  end
  object EmailMessage: TAdapter
    Left = 192
    Top = 8
    object TAdapterActions
      object adaOK: TAdapterAction
        OnExecute = adaOKExecute
        DisplayLabel = #21457#36865
      end
    end
    object TAdapterFields
      object adfFrom: TAdapterField
        OnGetValue = adfFromGetValue
        OnGetDisplayText = adfFromGetDisplayText
        DisplayLabel = #21457#20214#20154
      end
      object adfTo: TAdapterField
        OnGetValue = adfToGetValue
        OnGetDisplayText = adfToGetDisplayText
        DisplayLabel = #25910#20214#20154
      end
      object adfSubject: TAdapterField
        OnGetValue = adfSubjectGetValue
        OnGetDisplayText = adfSubjectGetDisplayText
        DisplayLabel = #20027#39064
      end
      object adfBody: TAdapterField
        OnGetValue = adfBodyGetValue
        OnGetDisplayText = adfBodyGetDisplayText
        DisplayLabel = #20869#23481
      end
    end
  end
  object SMTPEmail: TIdSMTP
    Host = 'sina.com'
    Left = 296
    Top = 8
  end
end
⌨️ 快捷键说明

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