main.dfm

来自「一个不用编写任何代码的DELPHI停靠窗体的控件原码」· DFM 代码 · 共 397 行

DFM
397 行
字号 
object MainForm: TMainForm
  Left = 360
  Top = 242
  Width = 328
  Height = 290
  Caption = #20027#31383#20307
  Color = clGray
  DefaultMonitor = dmMainForm
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  Visible = True
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 320
    Height = 44
    Anchors = []
    AutoSize = True
    ButtonHeight = 20
    ButtonWidth = 79
    Caption = 'ToolBar1'
    Color = clBtnFace
    EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
    Flat = True
    ParentColor = False
    ShowCaptions = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = #31383#20307#19968
      ImageIndex = 0
      OnClick = DockForm1Click
    end
    object ToolButton2: TToolButton
      Left = 47
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = #31383#20307#20108
      ImageIndex = 1
      OnClick = DockForm2Click
    end
    object ToolButton3: TToolButton
      Left = 94
      Top = 0
      AllowAllUp = True
      AutoSize = True
      Caption = #31383#20307#19977
      ImageIndex = 2
      Wrap = True
      OnClick = DockForm3Click
    end
    object ToolButton4: TToolButton
      Left = 0
      Top = 20
      Caption = #26174#31034#24377#20986#33756#21333
      Grouped = True
      ImageIndex = 3
      OnClick = N10Click
    end
    object ToolButton5: TToolButton
      Left = 79
      Top = 20
      Caption = #26159#21542#39640#20142#26174#31034
      Grouped = True
      ImageIndex = 4
      OnClick = N11Click
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 217
    Width = 320
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Memo1: TMemo
    Left = 0
    Top = 44
    Width = 320
    Height = 173
    Align = alClient
    Lines.Strings = (
      #27426#36814#22823#23478#20351#29992'DockPresident'#25511#20214#12290#36825#20010'Demo'#31243#24207#29992#26469#28436#31034#25511#20214#30340#20351#29992#26041#27861#12290
      ''
      #20854#20013#22312#31243#24207#30340#24037#20855#26639#19978#38754#26377#19977#20010#25353#38062#65306#39#31383#20307#19968#39','#39#31383#20307#20108#39#21644#39#31383#20307#19977#39#12290
      ''
      #39#31383#20307#19968#39#29992#26469#21019#24314'Delphi'#20572#38752#39118#26684#30340#31383#20307#12290
      #39#31383#20307#20108#39#29992#26469#21019#24314'Visual C++'#20572#38752#39118#26684#30340#31383#20307#12290
      #39#31383#20307#19977#39#29992#26469#21019#24314'Visual InterDev'#20572#38752#39118#26684#30340#31383#20307#12290
      ''
      
        #22914#26524#29992#25143#24076#26395#30475#21040'Delphi'#30340#20572#38752#39118#26684#65292#35831#22312#35774#35745#26399#30340#26102#20505#25226#20027#31383#20307#19978#38754#30340#39'lbDockServer1'#39#25511#20214#30340'DockStyle'#23646#24615 +
        #35774#32622#25104'lbDelphiDockStyle1;'#28982#21518#22312#36816#34892#26399#28857#20987#39#31383#20307#19968#39#25353#38062#21019#24314#20572#38752#31383#20307','#25226#36825#20010#20572#38752#31383#20307#25302#21160#21040#20027#31383#20307#38468#36817#23601#21487#20197#23454#29616 +
        'Delphi'#30340#20572#38752#39118#26684#12290
      ''
      
        #22914#26524#29992#25143#24076#26395#30475#21040'Visual C++'#30340#20572#38752#39118#26684#65292#35831#22312#35774#35745#26399#30340#26102#20505#25226#20027#31383#20307#19978#38754#30340#39'lbDockServer1'#39#25511#20214#30340'DockSty' +
        'le'#23646#24615#35774#32622#25104'lbVCDockStyle1;'#28982#21518#22312#36816#34892#26399#28857#20987#39#31383#20307#20108#39#25353#38062#21019#24314#20572#31383#20307','#25226#36825#20010#20572#38752#31383#20307#25302#21160#21040#20027#31383#20307#38468#36817#23601#21487#20197#23454#29616'V' +
        'isual C++'#30340#20572#38752#39118#26684#12290
      ''
      
        #22914#26524#29992#25143#24076#26395#30475#21040'Visual InterDev'#30340#20572#38752#39118#26684#65292#35831#22312#35774#35745#26399#30340#26102#20505#25226#20027#31383#20307#19978#38754#30340#39'lbDockServer1'#39#25511#20214#30340'Do' +
        'ckStyle'#23646#24615#35774#32622#25104'lbVIDDockStyle1;'#28982#21518#22312#36816#34892#26399#28857#20987#39#31383#20307#19977#39#25353#38062#21019#24314#20572#38752#31383#20307','#25226#36825#20010#20572#38752#31383#20307#25302#21160#21040#20027#31383#20307#38468 +
        #36817#23601#21487#20197#23454#29616'Visual InterDev'#30340#20572#38752#39118#26684#12290)
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 2
    WordWrap = False
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 144
    Top = 72
    object DockForm_Menu: TMenuItem
      Caption = #20572#38752#31383#20307
      object DockForm1: TMenuItem
        Caption = #31383#20307#19968
        OnClick = DockForm1Click
      end
      object DockForm2: TMenuItem
        Caption = #31383#20307#20108
        OnClick = DockForm2Click
      end
      object DockForm3: TMenuItem
        Caption = #31383#20307#19977
        OnClick = DockForm3Click
      end
    end
    object ShowWindow_Menu: TMenuItem
      Caption = #26174#31034#31383#20307
    end
    object DockInfo_Menu: TMenuItem
      Caption = #20572#38752#20449#24687
      object SaveToFile: TMenuItem
        Caption = #23384#20648#21040#25991#20214
        OnClick = SaveToFileClick
      end
      object LoadFromFile: TMenuItem
        Caption = #20174#25991#20214#36824#21407
        OnClick = LoadFromFileClick
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object SaveToReg: TMenuItem
        Caption = #23384#20648#21040#27880#20876#34920
        OnClick = SaveToRegClick
      end
      object LoadFromReg: TMenuItem
        Caption = #20174#27880#20876#34920#36824#21407
        OnClick = LoadFromRegClick
      end
    end
    object DockStyle_Menu: TMenuItem
      Caption = #20572#38752#39118#26684
      Visible = False
      object Default: TMenuItem
        Caption = #40664#35748
        OnClick = DefaultClick
      end
      object DelphiDockStyle: TMenuItem
        Caption = 'Delphi'
        OnClick = DelphiDockStyleClick
      end
      object VCDockStyle: TMenuItem
        Caption = 'Visual C++'
        OnClick = VCDockStyleClick
      end
      object VIDDockStyle: TMenuItem
        Caption = 'Visual InterDev'
        OnClick = VIDDockStyleClick
      end
    end
    object DockOption_Menu: TMenuItem
      Caption = #20572#38752#36873#39033
      object TopDocked: TMenuItem
        Caption = #19978#36793#21487#20572#38752
        OnClick = TopDockedClick
      end
      object BottomDocked: TMenuItem
        Caption = #19979#36793#21487#20572#38752
        OnClick = BottomDockedClick
      end
      object LeftDocked: TMenuItem
        Caption = #24038#36793#21487#20572#38752
        OnClick = LeftDockedClick
      end
      object RightDocked: TMenuItem
        Caption = #21491#36793#21487#20572#38752
        OnClick = RightDockedClick
      end
      object N31: TMenuItem
        Caption = '-'
      end
      object AllDocked: TMenuItem
        Caption = #20840#23616#21487#20572#38752
        OnClick = AllDockedClick
      end
    end
    object Set_Menu: TMenuItem
      Caption = #35774#32622
      object N10: TMenuItem
        Caption = #26174#31034#24377#20986#33756#21333
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #26159#21542#39640#20142#26174#31034
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #20998#21494#26381#21153#22120#30340#39118#26684
        object N13: TMenuItem
          Tag = 1
          Caption = 'bsDialog'
          RadioItem = True
          OnClick = bsToolWindow1Click
        end
        object N14: TMenuItem
          Tag = 2
          Caption = 'bsNone'
          RadioItem = True
          OnClick = bsToolWindow1Click
        end
        object N15: TMenuItem
          Tag = 3
          Caption = 'bsSingle'
          RadioItem = True
          OnClick = bsToolWindow1Click
        end
        object N16: TMenuItem
          Tag = 4
          Caption = 'bsSizeable'
          RadioItem = True
          OnClick = bsToolWindow1Click
        end
        object N17: TMenuItem
          Tag = 5
          Caption = 'bsSizeToolWin'
          RadioItem = True
          OnClick = bsToolWindow1Click
        end
        object bsToolWindow1: TMenuItem
          Tag = 6
          Caption = 'bsToolWindow'
          RadioItem = True
          OnClick = bsToolWindow1Click
        end
      end
      object N18: TMenuItem
        Caption = #24179#38138#26381#21153#22120#30340#39118#26684
        object bsDialog1: TMenuItem
          Tag = 1
          Caption = 'bsDialog'
          RadioItem = True
          OnClick = bsToolWindow2Click
        end
        object bsNone1: TMenuItem
          Tag = 2
          Caption = 'bsNone'
          RadioItem = True
          OnClick = bsToolWindow2Click
        end
        object bsSingle1: TMenuItem
          Tag = 3
          Caption = 'bsSingle'
          RadioItem = True
          OnClick = bsToolWindow2Click
        end
        object bsSizeable1: TMenuItem
          Tag = 4
          Caption = 'bsSizeable'
          RadioItem = True
          OnClick = bsToolWindow2Click
        end
        object bsSizeToolWin1: TMenuItem
          Tag = 5
          Caption = 'bsSizeToolWin'
          RadioItem = True
          OnClick = bsToolWindow2Click
        end
        object bsToolWindow2: TMenuItem
          Tag = 6
          Caption = 'bsToolWindow'
          RadioItem = True
          OnClick = bsToolWindow2Click
        end
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 224
    Top = 72
    object N5: TMenuItem
      Tag = 1
      Caption = #19978#36793
      OnClick = N5Click
    end
    object N6: TMenuItem
      Tag = 2
      Caption = #24038#36793
      OnClick = N5Click
    end
    object N7: TMenuItem
      Tag = 3
      Caption = #19979#36793
      OnClick = N5Click
    end
    object N8: TMenuItem
      Tag = 4
      Caption = #21491#36793
      OnClick = N5Click
    end
  end
  object lbDockServer1: TlbDockServer
    LeftSplitterStyle.Cursor = crHSplit
    LeftSplitterStyle.ParentColor = False
    LeftSplitterStyle.Size = 4
    TopSplitterStyle.Cursor = crVSplit
    TopSplitterStyle.ParentColor = False
    TopSplitterStyle.Size = 4
    RightSplitterStyle.Cursor = crHSplit
    RightSplitterStyle.ParentColor = False
    RightSplitterStyle.Size = 4
    BottomSplitterStyle.Cursor = crVSplit
    BottomSplitterStyle.ParentColor = False
    BottomSplitterStyle.Size = 4
    DockStyle = lbDelphiDockStyle1
    Left = 64
    Top = 72
  end
  object lbDelphiDockStyle1: TlbDelphiDockStyle
    ConjoinServerOption.GrabbersSize = 12
    ConjoinServerOption.SplitterWidth = 4
    Left = 64
    Top = 136
  end
  object lbVCDockStyle1: TlbVCDockStyle
    ConjoinServerOption.GrabbersSize = 15
    ConjoinServerOption.SplitterWidth = 4
    Left = 144
    Top = 136
  end
  object lbVIDDockStyle1: TlbVIDDockStyle
    ConjoinServerOption.GrabbersSize = 18
    ConjoinServerOption.SplitterWidth = 4
    ConjoinServerOption.ActiveFont.Charset = DEFAULT_CHARSET
    ConjoinServerOption.ActiveFont.Color = clWhite
    ConjoinServerOption.ActiveFont.Height = -13
    ConjoinServerOption.ActiveFont.Name = #23435#20307
    ConjoinServerOption.ActiveFont.Style = [fsBold]
    ConjoinServerOption.InactiveFont.Charset = DEFAULT_CHARSET
    ConjoinServerOption.InactiveFont.Color = 16311512
    ConjoinServerOption.InactiveFont.Height = -13
    ConjoinServerOption.InactiveFont.Name = #23435#20307
    ConjoinServerOption.InactiveFont.Style = [fsBold]
    ConjoinServerOption.TextAlignment = taLeftJustify
    ConjoinServerOption.ActiveTitleStartColor = 14898176
    ConjoinServerOption.ActiveTitleEndColor = 16749885
    ConjoinServerOption.InactiveTitleStartColor = 14653050
    ConjoinServerOption.InactiveTitleEndColor = 15448477
    ConjoinServerOption.TextEllipsis = True
    ConjoinServerOption.SystemInfo = True
    TabServerOption.TabPosition = tpBottom
    TabServerOption.ActiveSheetColor = clBtnFace
    TabServerOption.InactiveSheetColor = clBtnShadow
    TabServerOption.ActiveFont.Charset = DEFAULT_CHARSET
    TabServerOption.ActiveFont.Color = clWindowText
    TabServerOption.ActiveFont.Height = -11
    TabServerOption.ActiveFont.Name = 'MS Sans Serif'
    TabServerOption.ActiveFont.Style = []
    TabServerOption.InactiveFont.Charset = DEFAULT_CHARSET
    TabServerOption.InactiveFont.Color = clWindowText
    TabServerOption.InactiveFont.Height = -11
    TabServerOption.InactiveFont.Name = 'MS Sans Serif'
    TabServerOption.InactiveFont.Style = []
    TabServerOption.HotTrackColor = clBlue
    TabServerOption.ShowTabImages = False
    Left = 224
    Top = 136
  end
end

main.dfm - 源码说明

本页面展示了「一个不用编写任何代码的DELPHI停靠窗体的控件原码」中的 main.dfm 源码文件，采用 DFM 编程语言编写，共 397 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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