我要改标题蓝的颜色！！！！！！

Question

还有，不能让WINDOWS改掉我的标题蓝颜色！
请UP！有分！

Answer 1

用RICHEDIT做标题蓝？？？？？？不懂。。
不可以用假的！是真正的标题蓝！是改，不是去做！

Answer 2

在显示图片控件的mousedown内写：
if Button = mbLeft then
  begin
ReleaseCapture;
    Perform(WM_SYSCOMMAND, $F012, 0);
  end;
可完成窗体的移动，作用和标题栏完全一样。

Answer 3

RX\TOOLS页上的组件TRxGradientCaption:
RxGradientCaption.StartColor:= clRed;

Answer 4

改系统的可能恨麻烦,可能得hook api,截获系统画标题兰的函数,自己处理!

Answer 5

拦截WM_NCPaint消息，
procedure WMNCPaint(var Msg:TWMNCPaint);message WM_NCPaint;procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
  xFrame,yFrame,xSize,ySize:Integer;
  R:TRect;
begin
  inherited;
  xFrame:=GetSystemMetrics(SM_CXFRAME);
  yFrame:=GetSystemMetrics(SM_CYFRAME);
  xSize:=GetSystemMetrics(SM_CXSIZE);
  ySize:=GetSystemMetrics(SM_CYSIZE);
  //按钮属性调整->>
  Canvas.Handle:=GetWindowDC(Self.Handle);
  Canvas.Font.Name:='宋体';
  Canvas.Font.Color:=clBlue;
  Canvas.Pen.Color:=clYellow;
  Canvas.Brush.Color:=clBtnFace;
  try
    R:=Bounds(xFrame,yFrame,Width-2*xFrame,ySize);
    with r do
      Canvas.TextRect(R,R.Left+2,R.Top,'TEST');
  finally
    ReleaseDC(Self.Handle,Canvas.Handle);
    Canvas.Handle:=0;
  end;
end;看看出来了什么！
还有这些也一起拦拦住吧！
    procedure WMNCActivate(var Msg:TWMNCActivate);message WM_NCActivate;
    procedure WMSetText(var Msg:TWMSetText);message WM_SetText;
    procedure WMNCHitTest(var Msg:TWMNCHitTest);message WM_NCHittest;

Answer 6

同意楼上
WM_NCPAINT   非客户区刷新
WM_NCHITTEST  非客户区测试
WM_SETTEXT 设置标题

Answer 7

谢了！各位！liang_z(千山一刀之忍者神龟)　的方法我先试试去！分我先加了！有问题我还得回来问清楚！