Delphi之三十六计之界面篇

　else

　　　　Result := CallWindowProc(FPrevClientProc,
　　　　ClientHandle,
　　　　Msg,
　　　　wParam,
　　　　lParam);
　　end;
　end;

　//FormOnCreate

　procedure TMainFrm.FormCreate(Sender: Tobject);

　begin

　　FClientInstance := MakeObjectInstance(ClientWndProc);
　　FPrevClientProc := Pointer(GetWindowLong(ClientHandle,GWL_WNDPROC));
　　SetWindowLong(ClientHandle,GWL_WNDPROC, LongInt(FClientInstance));

　end;

　　2．给窗体添加皮肤

　//在窗体中放一名为Image1的TImage控件,并设置位图

　//在窗体的private节中声明过程

　procedure WMEraseBkgnd(var m: TWMEraseBkgnd); message WM_ERASEBKGND;

　…………..

　在实现部分书写代码如下：

　procedure Tform1.WMEraseBkgnd(var m : TWMEraseBkgnd);

　　begin

　　　m.Result := LRESULT(False);

　　end;