请问vcl控件子类化如何弄的

请教vcl控件子类化怎么弄的？
无hwnd的控件也可以吗？

[解决办法]
Of course.

For Example:

Delphi(Pascal) code

var  FOldWndProc: TWndMethod;//New message process methodprocedure TForm1.NewWndProc(var AMsg: TMessage);begin  //You can process message here.  ...end;//Replace Oldprocedure TForm1.Button1Click(Sender: TObject);begin  FOldWndProc:= Label1.WindowProc;  Label1.WindowProc:= NewWndProc;end;//Restore old window message process methodprocedure TForm1.Button2Click(Sender: TObject);begin  Label1.WindowProc:= FOldWndProc;end;