怎么重画标题栏？(5分)

我想重画一下标题栏，太不美了：）金山词霸的多好啊。有代码吗，各位帮忙。原理＋代码

处理一些非客户区消息
WM_NCPAINT,WM_NCACTIVE……

有两步
1>,什么时候画!
2>,怎么画!
1>在过程procedure WMNCPaint(var Msg:TMessage)
message WM_NCPAINT;中画;
2> 第二最关键
procedure WMNCPaint(var Msg:TMessage)
var
MCanvas:TCanvas;
begin
try
MCanvas:=TCanvas.Create;
MCanvas.Handle:=GetWindowDC(Handle);
MCanvas..//利用画布MCanvas画(小心,别画到客户区);
finally
ReleaseDC(Handle,MCanvas.Handle);
MCanvas.Free;
end;
end;

NeutronDelphi是正确的。

接受答案了.