An example of the self-drawn title bar

Author: kingcaiyao

.h file // ----------------------------------------------- ------------------------------ # iFndef Wmnch # define wmnch // ------------ -------------------------------------------------- ------------- # Include #include #include #include #include //// -------------------------------------------------- ------------------------- Class TFORM1: PUBLIC TFORM {__ Published: // Ide-Managed Components Tbitbtn * Bitbtn1; Void_fastCall FormPaint (TOBJECT * SENDER ); void __fastcall FormResize (TObject * Sender); void __fastcall BitBtn1Click (TObject * Sender); private: // User declarations void __fastcall OnNcHitTest (TMessage & Message); public: // User declarations __fastcall TForm1 (TComponent * Owner); BEGIN_MESSAGE_MAP VCL_MESSAGE_HANDLER (WM_NCHITTEST, TMESSAGE, INNCHITTEST; END_MESSAGE_MAP (TFORM); protected: virtual void __fastcall wndproc (tMessage & Message); Virtual void __fastcall CreateParams (TCREATEPARAMS & params);}; // ---------------------------------------- ----------------------------------- EXTERN PACKAGE TFORM1 * FORM1; / / ------- -------------------------------------------------- ------------------ # endif.cpp file // ------------------------- -------------------------------------------------- #include #pragma hdrstop # include "wmnc.h" // ------------------------------------------------------------------------------------------- -------------------------------------------- # Pragma package (smart_init) #pragma resource "* .dfm" TFORM1 * FORM1;

/ / -------------------------------------------------------------------------------------------- ---------------------------__ fastcall tform1 :: tform1 (tcomponent * oowner: tform (ooner) {} // ---- -------------------------------------------------- --------------------- void __fastcall tform1 :: createpams (tcreateparams & params) {tform :: createparams (params); params.style | = WS_POPUP; params.style ^ = WS_DLGFRAME;} // ------------------------------------------- -------------------------------- Void __fastcall tform1 ::/nchittest (tMESSAGE & Message) {TPOINT PT; PT.X = Loword (Message.LParam); Pt.y = HiWord (MSSAGE.LPARAM); PT = ScreenToClient (Pt); Rect Rect; :: SetRect (& Rect, 0,0,20, ClientHeight); if (PtinRect, PT) )) {Message.Result = HTCAPTION; // ShowMessage ( "How are you");} else {DefaultHandler (& Message);}} void __fastcall TForm1 :: FormPaint (TObject * Sender) {RECT rect; :: SetRect (& rect , 0, 0, ClientWidth, CLIENTHEIGHT); Canvas-> Pen-> Color = CLBLUE; canvas-> brush-> color = clblue; canvas-> reccTangle (0, 20, 20, clientheight); char * msg = "MY Fly ellow Citizens! "; LOGFONT fontRect; memset (& fontRect, 0, sizeof (LOGFONT)); fontRect.lfHeight = -13; fontRect.lfWeight = FW_NORMAL; fontRect.lfEscapement = 900; lstrcpy (fontRect.lfFaceName," Arial "); hFONT hFont = CreateFontIndirect (& fontRect); hFONT hOld = :: SelectObject (Canvas-> Handle, hFont); :: SetRect (& rect, 0,0,20, ClientHeight); :: SetTextColor (Canvas-> Handle, RGB (255,255,255 ))) ;: setbkcolor (canvas-> Handle, RGB (255, 0)); :: Textout (canvas-> handle, 3, clientHeight-3, MSG, LSTRLEN (MSG)); :: SelectObject (Canvas -> Handle, Hold) ;: DeleteObject (HFONT);