umain.dfm

模仿QQ的靠边停靠源码

object Form1: TForm1
  Left = 458
  Top = 262
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 462
  ClientWidth = 468
  Color = clBtnShadow
  UseDockManager = True
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDefault
  ShowHint = True
  OnCreate = FormCreate
  OnGetSiteInfo = CommonGetSiteInfo
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 5
    Width = 5
    Height = 433
    Align = alLeft
    AutoSize = True
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    TabOrder = 0
    OnGetSiteInfo = CommonGetSiteInfo
  end
  object Panel2: TPanel
    Left = 463
    Top = 5
    Width = 5
    Height = 433
    Align = alRight
    AutoSize = True
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    TabOrder = 1
    OnGetSiteInfo = CommonGetSiteInfo
  end
  object Panel3: TPanel
    Left = 0
    Top = 438
    Width = 468
    Height = 5
    Align = alBottom
    AutoSize = True
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    TabOrder = 2
    OnGetSiteInfo = CommonGetSiteInfo
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 443
    Width = 468
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Panel4: TPanel
    Left = 0
    Top = 0
    Width = 468
    Height = 5
    Align = alTop
    AutoSize = True
    BevelOuter = bvNone
    DockSite = True
    FullRepaint = False
    TabOrder = 4
    OnGetSiteInfo = CommonGetSiteInfo
  end
  object PopupMenu1: TPopupMenu
    Left = 144
    Top = 72
    object N11: TMenuItem
      Caption = '1'
      ShortCut = 16433
      OnClick = NewWindow1Click
    end
    object N21: TMenuItem
      Tag = 1
      Caption = '2'
      ShortCut = 16434
      OnClick = NewWindow1Click
    end
    object N31: TMenuItem
      Tag = 2
      Caption = '3'
      ShortCut = 16435
      OnClick = NewWindow1Click
    end
    object N41: TMenuItem
      Tag = 3
      Caption = '4'
      ShortCut = 16436
      OnClick = NewWindow1Click
    end
    object N51: TMenuItem
      Tag = 4
      Caption = '5'
      ShortCut = 16437
      OnClick = NewWindow1Click
    end
    object N61: TMenuItem
      Tag = 5
      Caption = '6'
      ShortCut = 16438
      OnClick = NewWindow1Click
    end
    object N71: TMenuItem
      Tag = 6
      Caption = '7'
      ShortCut = 16439
      OnClick = NewWindow1Click
    end
    object N81: TMenuItem
      Tag = 7
      Caption = '8'
      ShortCut = 16440
      OnClick = NewWindow1Click
    end
    object N91: TMenuItem
      Tag = 8
      Caption = '9'
      ShortCut = 16441
      OnClick = NewWindow1Click
    end
    object N101: TMenuItem
      Tag = 9
      Caption = '10'
      ShortCut = 16432
      OnClick = NewWindow1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 192
    Top = 96
    object File1: TMenuItem
      Caption = '&File'
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
  end
end