callstackunit.dfm

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

object CallStackForm: TCallStackForm
  Left = 349
  Top = 203
  Width = 200
  Height = 202
  BorderStyle = bsSizeToolWin
  Caption = 'Call Stack'
  Color = clBtnFace
  DockSite = True
  DragKind = dkDock
  DragMode = dmAutomatic
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'System'
  Font.Style = [fsBold]
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 192
    Height = 174
    Align = alClient
    ImeName = '中文 (简体) - 全拼'
    Lines.Strings = (
      '    CMyAppApp::InitInstance() line 52'
      '    AfxWinMain(HINSTANCE__ * 0x00400000,'
      '    HINSTANCE__ * 0x00000000, char * 0x0013261b,'
      '    int 1) line 39 + 11 bytes'
      '    WinMain(HINSTANCE__ * 0x00400000,'
      '    HINSTANCE__ * 0x00000000, char * 0x0013261b,'
      '    int 1) line 30'
      '    WinMainCRTStartup() line 330 + 54 bytes'
      '    KERNEL32! 77e67903()')
    TabOrder = 0
    WordWrap = False
  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