Fijar columnas en un TListView

[ecfisa]

Hola Angel.Matilla.

.h

...
class TForm1 : public TForm
{
...
private:	
  void __fastcall ListViewWindowProc(TMessage &Msg);
...

.cpp

...
TWndMethod OldListViewProc;

__fastcall TForm1::TForm1(TComponent *Owner) : TForm(Owner)
{
  OldListViewProc = ListView1->WindowProc;
  ListView1->WindowProc = ListViewWindowProc;
}

void __fastcall TForm1::ListViewWindowProc(TMessage &Message)
{
  if (Message.Msg == WM_NOTIFY) {
    const NMHDR *phdr = (NMHDR*)Message.LParam;
    if((phdr->code == HDN_BEGINTRACKA) ||
       (phdr->code == HDN_BEGINTRACKW) ||
       (phdr->code == HDN_DIVIDERDBLCLICKA) ||
       (phdr->code == HDN_DIVIDERDBLCLICKW)) {
      Message.Result = TRUE;
      return;
    }
 } 
 OldListViewProc(Message);
}
...

Saludos