请教vcl控件子类化怎么弄的？

Question

无hwnd的控件也可以吗？

Answer 1

Of course.For Example:var
  FOldWndProc: TWndMethod;//New message process method
procedure TForm1.NewWndProc(var AMsg: TMessage);
begin
  //You can process message here.
  ...
end;//Replace Old
procedure TForm1.Button1Click(Sender: TObject);
begin
  FOldWndProc:= Label1.WindowProc;  Label1.WindowProc:= NewWndProc;
end;//Restore old window message process method
procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.WindowProc:= FOldWndProc;
end;