Changing Title Bar Color in a Window

I would like to know how can I change the caption bar color in a window, so this change does only affect to the active window. I have used SetSysColors, but this changes the color in the system and I want only to change the color in an active Window. I am using Delphi 3.0 with W95 and NT 4.0.
Thanks.
gironaAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

mvz121697Commented:
The only way i can come up with is to override the WM_NCPaint messages. This means that you have to do ALL the drawing of the titlebar yourself.
If that's what you want, go and check this one:

http://www.mindspring.com/~cityzoo/ttlbar1.html


0
ZifNabCommented:
Well, don't have a direct answer but a work around. There are components which give you the posibility to get the graded effect in your title bar. If you use these components (begin = end color) and you enable them when your form becomes active. You've got the same result!! And almost no programming!!
If you need such components, I can give you some adresses for it
0
gironaAuthor Commented:
I was trying the software and helps of CITYZOO but with the 'LILTITLE' I have to make everything, minimize, maximize, etc. so I need a function, component or something in order not to do so much work.

I need a component or address to get it and be able of doing forms where I can change the color (and font) of the caption.

0
Cloud Class® Course: Microsoft Office 2010

This course will introduce you to the interfaces and features of Microsoft Office 2010 Word, Excel, PowerPoint, Outlook, and Access. You will learn about the features that are shared between all products in the Office suite, as well as the new features that are product specific.

ZifNabCommented:
here are some :
 torry.rimini.com/vcl/forms/gradient.zip
 torry.rimini.com/vcl/forms/wordcap.zip
 torry.rimini.com/vcl/forms/marscap.zip
 torry.rimini.com/vcl/shared/dunograd.zip
                         
0
ZifNabCommented:
And did you found what you were looking for?
0
gironaAuthor Commented:
Yes, I found what I was looking for. If you want to get the points answer the question with whatever you want. Thanks for that. If you have time I'd like you have a look to that question: "Sorting a lookup field" because I don't have any good answer in 15 days. See you.
0
ZifNabCommented:
I only take the points, if you found it through my comments. Otherwise I don't. I'll look at your other comment.
0
ZifNabCommented:
Can you give the URL, because I can't find it.
0
gironaAuthor Commented:
Yes, I found the solution through your comments, I'm ussing one from torry.rimini.com site but I don't remember which one. The URL of my other question is: http://www.experts-exchange.com/topics/bin/ShowQ?qid=8630033732
Thanks for trying it so quick.

0
ZifNabCommented:
Ok, to answer this question.
Look at these components :

                     torry.rimini.com/vcl/forms/gradient.zip
                      torry.rimini.com/vcl/forms/wordcap.zip
                      torry.rimini.com/vcl/forms/marscap.zip
                      torry.rimini.com/vcl/shared/dunograd.zip
                         
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Delphi

From novice to tech pro — start learning today.