как правильно компонент может повесить Хук на сообщения(родителя/приложения)

[Пепел Феникса]

constructor TPcBeholderRC.Create(AOwner:TComponent);
begin
 inherited Create(AOwner);
 FTime:=50;
 if not(csDesigning in ComponentState) then
  begin
   Application.HookMainWindow(HookAppProc);
   if Owner is TWinControl then HookForm;
   if Owner is TWinControl
    then RCThread:=TRCThread.Create(true,(Owner as TWinControl).Handle,FTime)
    else RCThread:=TRCThread.Create(true,Application.Handle,FTime);
  end;
end;

procedure TPcBeholderRC.HookFormProc(var Msg: TMessage);
begin
 if Msg.Msg<>WM_RC then begin Msg.Result:=CallWindowProc(OldWndProc,(Owner as TWinControl).Handle,Msg.Msg,Msg.wParam,Msg.lParam);exit;end;
 case Msg.WParam of
  RC_KEYDOWN:if assigned(FOnKeyDown) then FOnKeyDown(Self,Msg.LParam);
  RC_KEYUP:if assigned(FOnKeyUp) then FOnKeyUp(Self,Msg.LParam);
  RC_KEYPRESS:if assigned(FOnKeyPress) then FOnKeyPress(Self,Msg.LParam);
  else Msg.Result:=CallWindowProc(OldWndProc,(Owner as TWinControl).Handle,Msg.Msg,Msg.wParam,Msg.lParam);
 end;
end;

procedure TPcBeholderRC.HookForm;
begin
 if (Owner as TWinControl)<>nil then
  begin
   OldWndProc:=Pointer(GetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC));
{$IFDEF DELPHI_6_UP}
   NewWndProc:=Classes.MakeObjectInstance(HookFormProc);
{$ELSE}
   NewWndProc:=MakeObjectInstance(HookFormProc);
{$ENDIF}
   SetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC,LongInt(NewWndProc));
  end;
end;

procedure TPcBeholderRC.UnhookForm;
begin
 if ((Owner as TWinControl)<>nil)and(Assigned(OldWndProc)) then
  SetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC,LongInt(OldWndProc));
 if Assigned(NewWndProc) then
{$IFDEF DELPHI_6_UP}
  Classes.FreeObjectInstance(NewWndProc);
{$ELSE}
  FreeObjectInstance(NewWndProc);
{$ENDIF}
 NewWndProc:=nil;
 OldWndProc:=nil;
end;

function TPcBeholderRC.HookAppProc(var Msg:TMessage):Boolean;
begin
 Result:=false;
 if Msg.Msg<>WM_RC then begin {Result:=true;}exit;end;
 case Msg.WParam of
  RC_KEYDOWN:if assigned(FOnKeyDown) then FOnKeyDown(Self,Msg.LParam);
  RC_KEYUP:if assigned(FOnKeyUp) then FOnKeyUp(Self,Msg.LParam);
  RC_KEYPRESS:if assigned(FOnKeyPress) then FOnKeyPress(Self,Msg.LParam);
 end;
end;

вот пытался сделать...но не получилось ничего...то есть мои сообщения не обрабатываются


или проще компоненту получать Хендл и уже обрабатывать сообщения?
(компонент не визуальный)

[Stilet]

SetWindowLong((Owner as TWinControl).Handle,GWL_WNDPROC,Lon gInt(NewWndProc));

А если просто переопределить процедуру WindowProc у родителя?

т.е. я имел ввиду вот что-то типа такого:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
 TListBox=class(StdCtrls.Tlistbox)
 public
  wndp:TWndMethod;
  procedure ppp (var Message: TMessage);
 end;
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public       lb:TListBox;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TListBox }

procedure TListBox.ppp(var Message: TMessage);
begin
//
 Items.Add(inttostr(Message.Msg));
 wndp(Message);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  lb:=TListBox.Create(form1);
  with lb do begin
  top:=10;left:=10;width:=100;Height:=400;
  Parent:=self;
  Show;
  wndp:=Parent.WindowProc;
  Parent.WindowProc:=ppp;
  end;
end;

end.

P.S. Так давно не писал компоненты, что аж сам заинтересовался

[Пепел Феникса]

Извиняюсь что долго не отвечал...Стилет, а кто меня пустит в protected секцию?

я нашел уже ошибку...я директивы перепутал(overload, а надо override)
потому конструктор и не работал(исключение динамическое создание)
+переделал немного обработчик событий

в общем тема закрыта.