ListView. Запрет изменения ширины колонок

[DETONAVOMEK]

Как в ListView запретить изменения ширины колонок?

[volvo877]

Подменяй оконную функцию ListView на свою, и лови в ней WM_NOTIFY + HDN_BEGINTRACK. Для этого сообщения функция должна вернуть 1, если не нужно позволять менять размер колонок, и 0, если нужно позволить. Т.е, на Дельфи функция окна будет выглядеть так:

function ListViewNewWndProc(Window: HWnd; myMessage: UINT; myWParam : WPARAM;
                            myLParam: LPARAM): LRESULT; stdcall;
var
   p : PNMHDR;
begin
   case myMessage of
      WM_NOTIFY :
      begin
         p := PNMHdr(myLParam);
         case p^.code of
            HDN_BEGINTRACK :
            begin
               Result := 1; // Вот это запретит менять размер колонок
               Exit;
            end;
         end;
      end;
   end;
   Result := CallWindowProc(ListViewOldWndProc, Window, myMessage, myWParam, myLParam);
end;

[DETONAVOMEK]

Спасибо!