TListView +TCheckBox

class TForm1 : public TForm
{
__published: // IDE-managed Components
 
    TListView *ListView1;
    void __fastcall FormCreate(TObject *Sender);
 
private: // User declarations
 
    int HeaderID;
    MESSAGE void __fastcall WMNotify(TWMNotify &Message);
 
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_NOTIFY, TWMNotify, WMNotify);
    END_MESSAGE_MAP(TForm)
};

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
 
MESSAGE void __fastcall TForm1::WMNotify(TWMNotify &Message)
{
    if (Message.NMHdr->idFrom == HeaderID)
        if (Message.NMHdr->code == HDN_ITEMSTATEICONCLICK)
        {
            ShowMessage("You have clicked the header check box");
        }
    TForm::Dispatch(&Message);
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    HD_ITEM HeaderItem;
    ListView_SetExtendedListViewStyle(ListView1->Handle,
        LVS_EX_CHECKBOXES | LVS_EX_FULLROWSELECT);
    HWND HeaderHandle = ListView_GetHeader(ListView1->Handle);
    int HeaderStyle = ::GetWindowLongPtr(HeaderHandle, GWL_STYLE);
    HeaderStyle |= HDS_CHECKBOXES;
    ::SetWindowLongPtr(HeaderHandle, GWL_STYLE, HeaderStyle);
 
    HeaderItem.mask = HDI_FORMAT;
    Header_GetItem(HeaderHandle, 0, &HeaderItem);
    HeaderItem.fmt |= (HDF_CHECKBOX | HDF_FIXEDWIDTH);
    Header_SetItem(HeaderHandle, 0, &HeaderItem);
 
    HeaderID = ::GetDlgCtrlID(HeaderHandle);
}

class TForm1 : public TForm
{
__published: // IDE-managed Components
 
    TListView *ListView1;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
 
private: // User declarations
 
    typedef LRESULT(__stdcall *func)(HWND, unsigned, WPARAM, LPARAM);
 
    HWND FListHeaderWnd;
    TCheckBox *FListHeaderChk;
    func FSaveListHeaderWndProc, FListHeaderWndProc;
    void __fastcall ListHeaderWndProc(TMessage &Msg);
 
public: // User declarations
    __fastcall TForm1(TComponent* Owner);
};

// ---------------------------------------------------------------------------
#define OEMRESOURCE
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include <memory>
 
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
// ---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
}
// ---------------------------------------------------------------------------
 
TPoint GetCheckSize()
{
    std::auto_ptr<TBitmap> bm(new TBitmap);
    bm->Handle = ::LoadBitmap(NULL, MAKEINTRESOURCE(OBM_CHECKBOXES));
    return Point(bm->Width / 4, bm->Height / 3);
}
 
void __fastcall TForm1::ListHeaderWndProc(TMessage &Msg)
{
    if (Msg.Msg == WM_COMMAND && ((HWND)(Msg.LParam))
        == FListHeaderChk->Handle && Msg.WParamHi == BN_CLICKED)
    {
        FListHeaderChk->Checked = !FListHeaderChk->Checked;
 
        ShowMessage("Click at header CheckBox");
 
    }
    Msg.Result = CallWindowProc(FSaveListHeaderWndProc, FListHeaderWnd, Msg.Msg,
        Msg.WParam, Msg.LParam);
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ListView1->HandleNeeded();
    FListHeaderWnd = ListView_GetHeader(ListView1->Handle);
 
    FListHeaderChk = new TCheckBox((TComponent*)0);
    TPoint CheckSize = GetCheckSize();
    FListHeaderChk->Height = CheckSize.X;
    FListHeaderChk->Width = CheckSize.Y;
 
    TRect HeaderSize;
 
    ::ShowWindow(ListView1->Handle, SW_SHOWNORMAL);
    ::GetClientRect(FListHeaderWnd, &HeaderSize);
    FListHeaderChk->Top = (HeaderSize.Bottom - FListHeaderChk->Height) / 2;
    FListHeaderChk->Left = FListHeaderChk->Top;
 
    FListHeaderChk->Parent = this;
    ::SetParent(FListHeaderChk->Handle, FListHeaderWnd);
 
    FListHeaderWndProc = (func)Classes::MakeObjectInstance(ListHeaderWndProc);
    FSaveListHeaderWndProc = (func)::GetWindowLongPtr(FListHeaderWnd, GWLP_WNDPROC);
    ::SetWindowLongPtr(FListHeaderWnd, GWLP_WNDPROC, (LONG_PTR)FListHeaderWndProc);
}
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    ::SetWindowLongPtr(FListHeaderWnd, GWL_WNDPROC, (LONG_PTR)FSaveListHeaderWndProc);
    Classes::FreeObjectInstance(FListHeaderWndProc);
    delete FListHeaderChk;
}
// ---------------------------------------------------------------------------