Añadir barra de desplazamiento horizontal a un TListBox

Artículo por Club Developers · 31 diciembre 2005

3060 vistas

Si queremos que nuestro ListBox tenga una barra de desplazamiento horizontal cuando ésta sea necesario, sólo tendremos que decirle el tamaño deseado mediante el envio del mensaje LB_SETHORIZONTALEXTENT y ella aparecerá cuando haga falta:

Ejemplo para un ListBox1:



delphi
  1.   ListBox1.Perform(LB_SETHORIZONTALEXTENT, 300, 0 );

 

O bien:



delphi
  1.   SendMessage( ListBox1.Handle, LB_SETHORIZONTALEXTENT, 300, 0 );