• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 212
  • Last Modified:

Changing color of form title bar

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
sharons
Asked:
sharons
1 Solution
 
erajojCommented:
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
 
sharonsAuthor Commented:
Thank you.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Cloud Class® Course: CompTIA Cloud+

The CompTIA Cloud+ Basic training course will teach you about cloud concepts and models, data storage, networking, and network infrastructure.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now