uchild.dfm

模仿QQ的靠边停靠源码

object Form2: TForm2
  Left = 414
  Top = 269
  Width = 386
  Height = 233
  BorderStyle = bsSizeToolWin
  Caption = 'Form2'
  Color = clBtnFace
  UseDockManager = True
  DockSite = True
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PopupMenu = Form1.PopupMenu1
  OnCreate = FormCreate
  OnGetSiteInfo = DockGetSiteInfo
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 378
    Height = 206
    Align = alClient
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Ctl3D = True
    UseDockManager = False
    FullRepaint = False
    ParentCtl3D = False
    TabOrder = 0
    object Edit1: TEdit
      Left = 16
      Top = 8
      Width = 121
      Height = 21
      TabOrder = 0
      Text = 'Edit1'
      OnChange = Edit1Change
    end
  end
end