Fórum Não permitir mudar tamanho das colunas do ListView #254395

private 
  FListViewOldWndProc: TWndMethod; 
  procedure ListViewNewWndProc(var Msg: TMessage); 
end; 

{....} 

implementation 

uses 
  CommCtrl; 


procedure TForm1.FormCreate(Sender: TObject); 
begin 
  FListViewOldWndProc := ListView1.WindowProc; 
  Listview1.WindowProc := ListViewNewWndProc; 
end; 

procedure TForm1.ListViewNewWndProc(var Msg: TMessage); 
var 
  hdn: ^THDNotify; 
begin 
  if Msg.Msg = WM_NOTIFY then 
  begin 
    hdn := Pointer(Msg.lParam); 
    if (hdn.hdr.code = HDN_BeginTrackW) or (hdn.hdr.code = HDN_BeginTrackA) then 
      Msg.Result := 1 
    else 
      FListViewOldWndProc(Msg); 
  end 
  else  
    FListViewOldWndProc(Msg); 
end; 

procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  ListView1.WindowProc := FlistViewOldWndProc; 
  FListViewOldWndProc  := nil; 
end;