Item de listbox seleccion con scroll

[ecfisa]

Hola.

Empezado por aguml

Código PHP:

lb1->OnVerticalScroll = ListBoxVScroll; 


Esa funcion no aparece por ningun sitio en tu codigo último por lo que pienso que puede ser por eso pero se me

¡ Mil disculpas ! no copié la función que en el ejemplo le había asignado al evento OnVerticalScroll , era esta:

Código PHP:

void __fastcall TForm1::ListBoxVScroll(TObject *Sender)
{
  TMyListBox *lb = static_cast<TMyListBox*>(Sender);
  lb->Selected[lb->CurrentIndex] = true;
} 


Saludos