unit1.dfm

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

object Form1: TForm1
  Left = 230
  Top = 273
  Width = 145
  Height = 135
  BorderStyle = bsSizeToolWin
  Caption = #31383#20307#19968
  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 = 101
    Align = alClient
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 48
    Top = 64
    object TopDocked: TMenuItem
      Caption = #19978#36793#21487#20572#38752
      Checked = True
      OnClick = TopDockedClick
    end
    object BottomDocked: TMenuItem
      Caption = #19979#36793#21487#20572#38752
      Checked = True
      OnClick = BottomDockedClick
    end
    object LeftDocked: TMenuItem
      Caption = #24038#36793#21487#20572#38752
      Checked = True
      OnClick = LeftDockedClick
    end
    object RightDocked: TMenuItem
      Caption = #21491#36793#21487#20572#38752
      Checked = True
      OnClick = RightDockedClick
    end
    object N6: TMenuItem
      Caption = '-'
      Checked = True
    end
    object EachOtherDocked: TMenuItem
      Caption = #30456#20114#21487#20572#38752
      Checked = True
      OnClick = EachOtherDockedClick
    end
    object AllDocked: TMenuItem
      Caption = #20840#23616#21487#20572#38752
      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