Проблема перехвата сообщений при создании невизуального компонента

[volod3000]

При написании невизуального компонента столкнулся с проблемой перехвата сообщений , вот код, в чем ошибка:

unit Proba;

interface

uses
Classes, Controls, Graphics, Windows,Forms, Messages;


type

TA=Class(TComponent)
private
procedure WMNCMOUSEMOVE(var Message: TMessage);message WM_NCMOUSEMOVE;
protected
{ Protected declarations }
public

constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
published
end;

procedure Register;

implementation



procedure Register;
begin
RegisterComponents('Standard', [TA]);
end;

///////////////
constructor TA.Create(AOwner: TComponent);
begin
inherited Create(Aowner);

end;

destructor TA.Destroy;
begin
inherited Destroy;
end;

procedure TA.WMNCMOUSEMOVE(var Message: TMessage);
var
s : string;
begin
case Message.wParam of
HTERROR:
s:= 'HTERROR';
HTTRANSPARENT:
s:= 'HTTRANSPARENT';
HTNOWHERE:
s:= 'HTNOWHERE';
HTCLIENT:
s:= 'HTCLIENT';
HTCAPTION:
s:= 'HTCAPTION';
HTSYSMENU:
s:= 'HTSYSMENU';
HTSIZE:
s:= 'HTSIZE';
HTMENU:
s:= 'HTMENU';
HTHSCROLL:
s:= 'HTHSCROLL';
HTVSCROLL:
s:= 'HTVSCROLL';
HTMINBUTTON:
s:= 'HTMINBUTTON';
HTMAXBUTTON:
s:= 'HTMAXBUTTON';
HTLEFT:
s:= 'HTLEFT';
HTRIGHT:
s:= 'HTRIGHT';
HTTOP:
s := 'HTTOP';
HTTOPLEFT:
s:= 'HTTOPLEFT';
HTTOPRIGHT:
s:= 'HTTOPRIGHT';
HTBOTTOM:
s:= 'HTBOTTOM';
HTBOTTOMLEFT:
s:= 'HTBOTTOMLEFT';
HTBOTTOMRIGHT:
s:= 'HTBOTTOMRIGHT';
HTBORDER:
s:= 'HTBORDER';
HTOBJECT:
s:= 'HTOBJECT';
HTCLOSE:
s:= 'HTCLOSE';
HTHELP:
s:= 'HTHELP';
else s:= '';
end;
TForm(Owner).Caption := s;
Message.Result := 0;
end;

end.

При компиляции ошибок нет,после помещения компонента на форму и запуска ни чего не происходит, как не води мышкой.

Вручную можно запустить, а автоматом не хочет.
Подскажите в чем проблема?

[mihali4]

И вновь проблема в невнимательном прочтении (если вы их вообще читали до конца) правил раздела.
По-моему, я там вполне доступно даже для средних умов описал как формлять код с помощью соответствующего тэга.

[volod3000]

В следующий раз буду внимательней !

[Rik]

Не визуальные компоненты не являются потомками классов оконных компонент, поэтому никаких сообщений Windows в них вообще не поступает и что-либо перехватывать бессмысленно.

[volod3000]

Rik!
Я с Вами не согласен.

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

события от мыши получают потомки класса TControl а не TComponent

[volod3000]

У кого Delphi 2009 испытайте
Компонент полностью управляет заголовком формы.

http://letitbit.net/download/f3cce47...ption.rar.html

[Rik]

Сообщение от volod3000

У кого Delphi 2009 испытайте
Компонент полностью управляет заголовком формы.

http://letitbit.net/download/f3cce47...ption.rar.html

Вы считаете что это благодаря тому, что компонент перехватывает сообщения? На самом деле это не так, он сообщения сам не перехватывает, он заставляет передавать ему сообщения на обработку. Скорее всего он подменяет процедуру окна MianWindowProc, куда стекаются все сообщения, своей процедурой...