watchunit.dfm

一个不用编写任何代码的DELPHI停靠窗体的控件原码

object WatchForm: TWatchForm
  Left = 261
  Top = 223
  Width = 264
  Height = 219
  BorderStyle = bsSizeToolWin
  Caption = 'Watch'
  Color = clBtnFace
  DockSite = True
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = [fsBold]
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 256
    Height = 191
    Align = alClient
    BevelOuter = bvLowered
    TabOrder = 0
    object Shape1: TShape
      Left = 1
      Top = 1
      Width = 254
      Height = 168
      Align = alClient
    end
    object TabSet1: TTabSet
      Left = 1
      Top = 169
      Width = 254
      Height = 21
      Align = alBottom
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'System'
      Font.Style = [fsBold]
      SelectedColor = clWindow
      Tabs.Strings = (
        'Watch1'
        'Watch2'
        'Watch3'
        'Watch4')
      TabIndex = 0
      UnselectedColor = clBtnFace
    end
    object ListView1: TListView
      Left = 1
      Top = 1
      Width = 254
      Height = 168
      Align = alClient
      BorderStyle = bsNone
      Columns = <
        item
          Caption = 'Name'
        end
        item
          Caption = 'Value'
        end>
      GridLines = True
      TabOrder = 1
      ViewStyle = vsReport
      OnResize = ListView1Resize
    end
  end
  object lbDockClient1: TlbDockClient
    OnFormHide = lbDockClient1FormHide
    LRDockWidth = 100
    TBDockHeight = 100
    DirectDrag = True
    ShowHint = True
    EachOtherDock = False
    DockStyle = MainForm.lbVCDockStyle1
    Left = 104
    Top = 96
  end
end