Evento WM_RBUTTONDBLCLK

[César E. Lozada]

Tal vez haya alguna razón para ello, pero este evento (Right button double click) no es manejado por la clase tWindow

Sólo haría falta agregar:

Code: Select all  Expand view

#define WM_RBUTTONDBLCLK                0x0206

DATA bRDblClick

METHOD RDblClick( nRow, nCol, nKeyFlags ) CLASS TWindow
   if ::bRDblClick != nil
      return Eval( ::bRDblClick, nRow, nCol, nKeyFlags, Self )
   endif
return nil
 

y en el método HandleEvent:

Code: Select all  Expand view

  case nMsg == WM_RBUTTONDBLCLK
       return ::RDblClick( nHiWord( nLParam ), nLoWord( nLParam ), nWParam )
 

César Lozada

[César E. Lozada]

Nota: De acuerdo a http://winapi.conclase.net/curso/?winmsg=WM_RBUTTONDBLCLK,

sólo las ventanas que tienen el estilo CS_DBLCLKS pueden recibir mensajes WM_RBUTTONDBLCLK

Pero no hay ningún problema con esto, pues en el method Register la clase tWindow asigna automáticamente este estilo a las ventanas.

César Lozada

[Antonio Linares]

César,

Te funciona bien asi ?

gracias

[César E. Lozada]

No, Antonio. Lo probé en tWindow y no funciona.

No pude implementarlo en tControl o no supe cómo hacerlo.

Pero si hago las modificaciones en un control en particular entonces sí que funciona. (Lo hice en tListBox)

Saludos,
César

[Antonio Linares]

César,

Entonces de momento lo tienes solucionado asi ?

[César E. Lozada]

Antonio,

Sí. En un listbox funciona correctamente. Gracias por tu interés.

César Lozada