DELPHI 如何自绘窗口

DELPHI 怎么自绘窗口
DELPHI 怎么自绘窗口？（不是皮肤，是窗口的四边和标题栏，一个框架那样的）
要怎么弄？给一点思路或案例也好

[解决办法]
重载TCustomControl吧，里面有画刷，你想怎么画怎么画
[解决办法]
简单一点，用image控件装个图片当边框
复杂点:
var

Delphi(Pascal) code

procedure WndProc(var Msg: TMessage); override;begin  inherited;  case Msg.Msg of    WM_PAINT: .....//画边框  end;end;
[解决办法]
重载OnPaint后 用       
  DrawFrameControl( DC: HDC;            //设备环境句柄
                          const Rect: TRect;  //矩形
                          uType, uState: UINT//控件类型与控件状态
                         ): BOOL;
函数。
然后在用Canvas
[解决办法]
探讨


引用:
重载OnPaint后 用
DrawFrameControl( DC: HDC; //设备环境句柄
const Rect: TRect; //矩形
uType, uState: UINT//控件类型与控件状态
): BOOL;
函数。
然后在用Canvas

确实是一个好方法，但如果我想让边框看起来有立体感，该怎么做呢？