改变Form标题栏的颜色，不想它是蓝色，太死板，送40分

Question

如题，给点代码最好不过。

Answer 1

简单的就是直接用皮肤软件自己写代码的话恐怕要继承Tmenu，再重画

Answer 2

如果不用皮肤控件的话，得重画。或者简单点，直接修改Windows的标题栏颜色~

Answer 3

你要找的是这个吧  
以前出现过好多次
http://topic.csdn.net/t/20020426/16/679010.html

Answer 4

楼上两位实在省事，在下虚心求教啊，皮肤软件不想用，直接改Windows标题栏颜色就更
给点代码，我知道一点修改Form标题栏的颜色，要用API的，貌似要用drawcaption函数。
我是想看看怎么弄，如果是用别的软件或者改系统颜色，那有什么意思。
希望来个实际点的兄弟。

Answer 5

http://www.pcnetfan.com/viewnews-34329.html
可以通过这个研究一下

Answer 6

这个很不错，但是依然不是我说的标题栏的颜色，你自己试一下就知道，它并没改变标题栏整个的颜色，而是部分，是Caption的颜色及其背景色。
不过很不错了，比较实在了

Answer 7

http://kb.cnblogs.com/a/1662839/

Answer 8

你不要期望什么都是DELPHI代码，人家都帮你写好的 

Answer 9

难倒是我发错了版块？
如果我要VC的，我就发到VC版块去了。
还有，我并没有要你写好全部代码给我，我并不是懒人。
兄弟你给个链接不也是在图个省事吗？
你回答其实很
搞得好像我很菜，而且还很喜欢依赖高手给代码一样。

Answer 10

拦截消息，自己画，拦截下面以系列的消息来实现每个鼠标动作
    procedure WMNCPAINT(var Msg: TMessage); message WM_NCPAINT;
    procedure WMNCACTIVATE(var Msg: TMessage); message WM_NCACTIVATE;
    procedure WMNCHITTEST(var Msg: TWMNCHitTest); message WM_NCHITTEST;
    procedure WMNCCALCSIZE(var Msg : TWMNCCalcSize); message WM_NCCALCSIZE;
   // procedure WMNCHitTest(var message: TWMNCHitTest); message WM_NCHITTEST;
    procedure WMNCLBUTTONDOWN(var Msg: TMessage); message WM_NCLBUTTONDOWN;
    procedure WMNCLBUTTONUP(var Msg: TMessage); message WM_NCLBUTTONUP;
    procedure WMLBUTTONUP(var Msg: TMessage); message WM_LBUTTONUP;

Answer 11

我看你真的很懒。既然你要的是API函数用法，那用什么语言有什么关系？如果你直接说“我是新手，我就等吃现成的”，那你的理由就充分了。最后一句，唉，简直就是那个啥想立牌坊……

Answer 12

这兄弟脑子是非同寻常，理解能力堪称极品。
我来这个地方发帖是来求教，不是和你争论什么，见你喜欢放那个啥，我也想那啥一下你。
懒？发帖提问我不觉得是偷懒，回帖也请认真，我不是来灌水的。
回复链接不是不可以，请搞清楚状况，既然我发在DELPHI版块，那么就请对号入座，请尊重论坛版块划分，
你哪只眼睛看到我说要的只是API函数用法，眼神也有问题？
给点代码，我知道一点修改Form标题栏的颜色，要用API的，貌似要用drawcaption函数。
我是想看看怎么弄，如果是用别的软件或者改系统颜色，那有什么意思。
难道你只看到API这三个字，别的字就忽略？不是说了想看看怎么弄么？
真是笑了，如此急不可耐地想教育我？就不经过一下大脑思考吧，好好想想。
对了，这叫那啥欲加什么何患什么。
我感谢所有回答问题的兄弟，
这位兄弟，估计是看我喷那谁，有点不顺眼，我没叫你看顺眼，回帖回点有意义的，别搞得像什么一样。
打些口水仗，时间有多？的确，有闲情逸致这样回帖的人可不是吃饱了吗。