jvwndprochookdemomainformu.dfm

East make Tray Icon in delphi

object JvWndProcHookDemoMainForm: TJvWndProcHookDemoMainForm
  Left = 346
  Top = 90
  Width = 653
  Height = 533
  Caption = 'JvCaptionButton Demo'
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 24
    Top = 16
    Width = 589
    Height = 80
    Caption = 
      'This demo shows that the new RegisterWndProcHook method in JvWnd' +
      'ProcHook can'#13#10'handle several components subclassing the same con' +
      'trol witout losing track of the'#13#10'original WndProc regardless of ' +
      'the order of registration/unregistration'#13#10'It also shows that the' +
      ' WndProc link(s) are unaffected by RecreateWnd'#13#10'(which destroys ' +
      'the old window handle)'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object btnAdd: TButton
    Left = 16
    Top = 120
    Width = 75
    Height = 25
    Caption = '&Add'
    TabOrder = 0
    OnClick = btnAddClick
  end
  object btnDelete: TButton
    Left = 16
    Top = 152
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 1
    OnClick = btnDeleteClick
  end
  object btnRecreateWnd: TButton
    Left = 16
    Top = 184
    Width = 75
    Height = 25
    Caption = 'Recreate&Wnd'
    TabOrder = 2
    OnClick = btnRecreateWndClick
  end
  object lbButtons: TListBox
    Left = 112
    Top = 120
    Width = 505
    Height = 353
    Anchors = [akLeft, akTop, akRight, akBottom]
    ItemHeight = 13
    TabOrder = 3
  end
end