unit1.~dfm

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

object Form1: TForm1
  Left = 81
  Top = 277
  Width = 145
  Height = 135
  BorderStyle = bsSizeToolWin
  Caption = '窗体一'
  Color = clBtnFace
  DockSite = True
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Visible = True
  OnCreate = FormCreate
  OnHide = FormHide
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 137
    Height = 107
    Align = alClient
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 48
    Top = 64
    object TopDocked: TMenuItem
      Caption = '上边可停靠'
      Checked = True
      OnClick = TopDockedClick
    end
    object BottomDocked: TMenuItem
      Caption = '下边可停靠'
      Checked = True
      OnClick = BottomDockedClick
    end
    object LeftDocked: TMenuItem
      Caption = '左边可停靠'
      Checked = True
      OnClick = LeftDockedClick
    end
    object RightDocked: TMenuItem
      Caption = '右边可停靠'
      Checked = True
      OnClick = RightDockedClick
    end
    object N6: TMenuItem
      Caption = '-'
      Checked = True
    end
    object EachOtherDocked: TMenuItem
      Caption = '相互可停靠'
      Checked = True
      OnClick = EachOtherDockedClick
    end
    object AllDocked: TMenuItem
      Caption = '全局可停靠'
      Checked = True
      OnClick = AllDockedClick
    end
  end
  object lbDockClient1: TlbDockClient
    OnFormShow = lbDockClient1FormShow
    OnFormHide = lbDockClient1FormHide
    OnNCButtonDown = lbDockClient1NCButtonDown
    OnNCButtonUp = lbDockClient1NCButtonUp
    OnNCMouseMove = lbDockClient1NCMouseMove
    OnNCButtonDblClk = lbDockClient1NCButtonDblClk
    OnPaintDockGrabber = lbDockClient1PaintDockGrabber
    LRDockWidth = 100
    TBDockHeight = 100
    NCPopupMenu = PopupMenu1
    DirectDrag = False
    ShowHint = True
    DockStyle = MainForm.lbDelphiDockStyle1
    Left = 48
    Top = 24
  end
end