Solved

Changing color of form title bar

Posted on 1998-08-23
2
197 Views
Last Modified: 2011-09-20
Is there a way to change the color of the title bar (other than changing the Windows colors).  

Also, is there a way to have a window border but without the title bar ?
0
Comment
Question by:sharons
2 Comments
 
LVL 4

Accepted Solution

by:
erajoj earned 50 total points
ID: 1337462
1. Yes, check, for instance, TRxGradientCaption in RXLib.
2. Yes:

type
  TForm1 = class(TForm)
  private
    procedure WMNCHitTest( var Msg: TWMNCHitTest ); message WM_NCHitTest;
    procedure CreateParams( var Params: TCreateParams ); override;
  ...
  procedure TForm1.CreateParams( var Params: TCreateParams );
  begin
    inherited CreateParams( Params );
    with Params do Style := ( Style or WS_POPUP ) and ( not WS_DLGFRAME );
   end;

procedure TForm1.WMNCHitTest( var Msg: TWMNCHitTest ); // client area as titlebar, for dragging
begin
  inherited;
  if ( Msg.Result = htClient )
  then Msg.Result := htCaption;
end;

/// John

0
 

Author Comment

by:sharons
ID: 1337463
Thank you.
0

Featured Post

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

Have you ever had your Delphi form/application just hanging while waiting for data to load? This is the article to read if you want to learn some things about adding threads for data loading in the background. First, I'll setup a general applica…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

757 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now