Создание своего заголовка окна

//---------------------------------------------------------------------------
 
#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
//---------------------------------------------------------------------------
#define D1973
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall ShapeMouseEnter(TObject *Sender);
    void __fastcall ShapeMouseLeave(TObject *Sender);
    void __fastcall ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
    void __fastcall PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, int X, int Y);
 
 
private:
    const unsigned ButtonWidth, ButtonHeight,
                   CaptionPanelHeight;
 
    const TColor ColorEnter,
                 ColorLeave,
                 ColorEnterExit,
                 ColorLeaveExit;
 
    void __fastcall ButtonUpdate();
    TPanel *CaptionPanel;
    TShape *SBMin, *SBMax, *SBExt;
 
    #ifndef D1973
    bool MouseLBDown;
    TPoint MouseDownCaptionXY;
    #endif
public:
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
enum MouseInButton_e
    {
    emibLeave, emibEnter, emibDown, emibUp
    };
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner),
    ColorEnter      ( StringToColor( "0xdf0064" ) ),
    ColorLeave      ( StringToColor( "0x7a0055" ) ),
    ColorEnterExit  ( StringToColor( "0x0000c8" ) ),
    ColorLeaveExit  ( StringToColor( "0x000064" ) ),
    ButtonWidth( 20 ), ButtonHeight( 30 ),
    CaptionPanelHeight( 30 )
{
#ifndef D1973
MouseLBDown = false;
#endif
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
CaptionPanel = new TPanel( this );
CaptionPanel->Parent = this;
CaptionPanel->Height = CaptionPanelHeight;
CaptionPanel->Align  = alTop;
CaptionPanel->ParentBackground = false;
CaptionPanel->Color  = ColorLeave;
CaptionPanel->OnMouseDown = this->PanelMouseDown;
CaptionPanel->OnMouseUp = this->PanelMouseUp;
CaptionPanel->OnMouseMove = this->PanelMouseMove;
 
SBMin = new TShape( this );
SBMax = new TShape( this );
SBExt = new TShape( this );
 
TShape *pTempShape;
for( unsigned index=0; index<this->ComponentCount; ++index )
    if( this->Components[index]->ClassNameIs( "TShape" ) )
        {
        pTempShape = static_cast<TShape*>( Components[index] );
 
        pTempShape->Parent  = CaptionPanel;
        pTempShape->Width   = ButtonWidth;
        pTempShape->Height  = ButtonHeight;
        pTempShape->Top     = CaptionPanel->Height/2 - ButtonHeight/2;
        pTempShape->Shape   = stRoundSquare; // Соответственно если хочется не равностороннегольники, то...
        pTempShape->Tag     = emibLeave;
        pTempShape->Brush->Color = ColorLeave;
        pTempShape->Pen->Color   = clWhite;
 
        pTempShape->OnMouseLeave = this->ShapeMouseLeave;
        pTempShape->OnMouseEnter = this->ShapeMouseEnter;
        pTempShape->OnMouseDown  = this->ShapeMouseDown;
        pTempShape->OnMouseUp    = this->ShapeMouseUp;
        }
 
SBMin->Name = "SBMin";
SBMax->Name = "SBMax";
SBExt->Name = "SBExit"; SBExt->Brush->Color = ColorLeaveExit;
 
SBMin->Left = CaptionPanel->Width - ButtonWidth * 3 - ButtonWidth/1.5;
SBMax->Left = CaptionPanel->Width - ButtonWidth * 2 - ButtonWidth/2;
SBExt->Left = CaptionPanel->Width - ButtonWidth * 1 - ButtonWidth/3;
 
this->BorderStyle = bsNone;
this->Position = poDesktopCenter;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShapeMouseEnter(TObject *Sender)
{
static_cast<TShape*>( Sender )->Tag = emibEnter;
ButtonUpdate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShapeMouseLeave(TObject *Sender)
{
static_cast<TShape*>( Sender )->Tag = emibLeave;
ButtonUpdate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ButtonUpdate()
{
TColor CurrColor(0);
 
for( unsigned index=0; index<this->ComponentCount; ++index ) // Типа для расширяемости числа кнопок
    if( this->Components[index]->ClassNameIs( "TShape" ) )
        {
        if( static_cast<TShape*>( Components[index] )->Tag == emibEnter )
            {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( "Exit" ) )
                CurrColor = ColorEnter;
            else
                CurrColor = ColorEnterExit;
            }
        else
            {
            if( !static_cast<TShape*>( Components[index] )->Name.Pos( "Exit" ) )
                CurrColor = ColorLeave;
            else
                CurrColor = ColorLeaveExit;
            }
 
        static_cast<TShape*>( Components[index] )->Brush->Color = CurrColor;
        }
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PanelMouseMove(TObject *Sender, TShiftState Shift, int X, int Y)
{
#ifndef D1973
if( MouseLBDown )
    {
    static TPoint tp;
    tp.X = X;
    tp.Y = Y;
    tp = ClientToScreen(tp);
 
    this->Left = tp.x - MouseDownCaptionXY.X;
    this->Top = tp.Y - MouseDownCaptionXY.Y;
    }
#endif
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PanelMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef D1973
MouseLBDown = true;
MouseDownCaptionXY.X = X;
MouseDownCaptionXY.Y = Y;
#else
long SC_DRAGMOVE = 0xF012;
    if(Button == mbLeft)
      {
        ReleaseCapture();
        SendMessage(Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);
      }
#endif
}
//---------------------------------------------------------------------------
void __fastcall TForm1::PanelMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
#ifndef D1973
MouseLBDown = false;
#endif
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShapeMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
static_cast<TShape*>( Sender )->Tag = emibDown;
ButtonUpdate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ShapeMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift,
          int X, int Y)
{
static_cast<TShape*>( Sender )->Tag = emibUp;
ButtonUpdate();
 
if( static_cast<TShape*>( Sender )->Name.Pos( "Min" ) )
    {
    this->WindowState = wsMinimized;
    }
if( static_cast<TShape*>( Sender )->Name.Pos( "Max" ) )
    {
    if( this->WindowState == wsMaximized )
        this->WindowState = wsNormal;
    else
        this->WindowState = wsMaximized;
 
    SBMin->Left = CaptionPanel->Width - ButtonWidth * 3 - ButtonWidth/1.5;
    SBMax->Left = CaptionPanel->Width - ButtonWidth * 2 - ButtonWidth/2;
    SBExt->Left = CaptionPanel->Width - ButtonWidth * 1 - ButtonWidth/3;
    }
if( static_cast<TShape*>( Sender )->Name.Pos( "Exit" ) )
    {
    this->Close();
    }
}
//---------------------------------------------------------------------------