Ver Mensaje Individual
  #1  
Antiguo 05-11-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Angel.Matilla.

.h
Código:
...
class TForm1 : public TForm
{
...
private:	
  void __fastcall ListViewWindowProc(TMessage &Msg);
...
.cpp
Código:
...
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita