object Form1: TForm1
  Left = 117
  Top = 96
  Width = 471
  Height = 342
  Caption = 'Subclass Component Demo'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object Label1: TLabel
    Left = 66
    Top = 107
    Width = 4
    Height = 16
  end
  object Label2: TLabel
    Left = 224
    Top = 14
    Width = 234
    Height = 96
    AutoSize = False
    Caption = 
      'With the subclass component you can easily subclass any window, ' +
      'even a window owned by another application.  Simply set the WndH' +
      'andle property and call the Hook method.  When a message is sent' +
      ' to that window, the OnSysEvent handler will be fired.'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object BitBtn1: TBitBtn
    Left = 66
    Top = 33
    Width = 144
    Height = 29
    Caption = '&Start Subclassing'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33033333333333333F7F3333333333333000333333333333F777333333333333
      000333333333333F777333333333333000333333333333F77733333333333300
      033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
      33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
      3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
      33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
      333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
      333333773FF77333333333370007333333333333777333333333}
    NumGlyphs = 2
  end
  object StringGrid1: TStringGrid
    Left = 66
    Top = 154
    Width = 348
    Height = 120
    ColCount = 2
    DefaultRowHeight = 18
    FixedCols = 0
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    GridLineWidth = 0
    ParentFont = False
    RowCount = 6
    TabOrder = 1
    OnSelectCell = StringGrid1SelectCell
    ColWidths = (
      64
      263)
  end
  object BitBtn2: TBitBtn
    Left = 66
    Top = 124
    Width = 348
    Height = 29
    Caption = '&Enumerate Top Level Windows'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF003333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB0333333777F3333773333330B7FFF
      FFB0333333777F3333773333330B7FFFFFB03FFFFF777FFFFF77000000000077
      007077777777777777770FFFFFFFF00077B07F33333337FFFF770FFFFFFFF000
      7BB07F3FF3FFF77FF7770F00F000F00090077F77377737777F770FFFFFFFF039
      99337F3FFFF3F7F777FF0F0000F0F09999937F7777373777777F0FFFFFFFF999
      99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
      99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
      93337FFFF7737777733300000033333333337777773333333333}
    NumGlyphs = 2
  end
  object BitBtn3: TBitBtn
    Left = 66
    Top = 65
    Width = 144
    Height = 29
    Caption = '&Sto&p Subclassing'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = BitBtn3Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33033333333333333F7F3333333333333000333333333333F777333333333333
      000333333333333F777333333333333000333333333333F77733333333333300
      033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
      333333773337777333333078F8F87033333337F3333337F33333778F8F8F8773
      333337333333373F333307F8F8F8F70333337F33FFFFF37F3333078999998703
      33337F377777337F333307F8F8F8F703333373F3333333733333778F8F8F8773
      333337F3333337F333333078F8F870333333373FF333F7333333330777770333
      333333773FF77333333333370007333333333333777333333333}
    NumGlyphs = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 287
    Width = 463
    Height = 28
    Align = alBottom
    Caption = 'Panel1'
    TabOrder = 4
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 152
      Height = 26
      Align = alLeft
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
    end
    object Panel3: TPanel
      Left = 153
      Top = 1
      Width = 141
      Height = 26
      Align = alLeft
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
    object Panel4: TPanel
      Left = 294
      Top = 1
      Width = 167
      Height = 26
      Align = alLeft
      Alignment = taLeftJustify
      BevelOuter = bvLowered
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
  end
  object Subclass1: TSubclass
    SType = stPreDefault
    WndHandle = 0
    OnSysEvent = Subclass1SysEvent
    Left = 17
    Top = 5
  end
end