한국 델파이 동호회 델마당

1) 폼의 멤버로 선언
   OrgPanelProc: TWndMethod;
   procedure PanelProc(var Msg:TMessage);

2) 폼 Create에서..
   OrgPanelProc:=Panel1.WindowProc;
   Panel1.WindowProc:=PanelProc;

3)
procedure  TForm1.PanelProc(var Msg: TMessage);
begin

   if( Msg.Message = WM_USER+1) then //원하는 메세지
   begin
      //원하는 작업
   end;

   OrgPanelProc(Msg);

end;

=============================================================
이 방식은 VCL에서 TControl을 상속받은 모든 Control에서 사용가능한 sub-classing방식입니다.

문론 TGraphicControl을 상속받은 놈은 Handle이 SendMessage로 메세지를 받지는 못하지만..

그럼..

2009-12-29 오후 2:41:13