A veces los elementos de una lista superan el ancho del control, no estando visible en su totalidad el texto. El control ListBox no cuenta con una propiedad que permita hacer aparecer una barra de desplazamiento horizontal, pero es muy fácil hacerlo incluyendo la siguiente línea de código:

 
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 1000, LongInt(0))
 
 

En la sentencia anterior se envía al control, cuyo identificador de ventana se obtiene de la propiedad Handle, el mensaje LB_SETHORIZONTALEXTENT, pasando como primer parámetro el valor 1000 y como segundo el valor 0. El primer parámetro de este mensaje establece el número de puntos en que puede ser desplazada la lista. En caso de que el ListBox tenga un ancho superior a dicho valor, en este caso 1000 puntos, la barra de desplazamiento no aparecerá. El segundo parámetro ha de ser cero siempre.