Ver Mensaje Individual
  #12  
Antiguo 18-12-2017
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
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 de nuevo.

Me quedé pensando que si deseas que la selección del item se realize dentro de la misma clase, podes prescindir del evento _vScroll, por lo que podría quedar así:
Código PHP:
class TMyListBox : public TListBox
{
private:
  
TWndMethod _oldWndProc;

protected:
  
virtual void __fastcall WndProc(TMessage &msg);

public:
  
__fastcall TMyListBox(TComponent *Owner);
  
__fastcall ~TMyListBox();
};

//...

__fastcall TMyListBox::TMyListBox(TComponent *Owner) : TListBox(Owner)
{
    
_oldWndProc WindowProc;
}

void __fastcall TMyListBox:: WndProc(TMessage &msg)
{
  if( 
msg.Msg == WM_VSCROLL )
    
Selected[GetScrollPos(HandleSB_VERT)]= true// seleccionar
  
TListBox::WndProc(msg);
}

__fastcall TMyListBox::~TMyListBox()
{
  
WindowProc _oldWndProc;

Saludos
__________________
Daniel Didriksen

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

Última edición por ecfisa fecha: 18-12-2017 a las 14:40:46.
Responder Con Cita