Add a horizontal scrollbar to a TListBox

Problem/Question/Abstract:

How to add a horizontal scrollbar to a TListBox

Answer:

A quick way to add the horizontal scroll bar and set its scroll range is to use SendMessage. Put the following command in the OnCreate or OnActivate methods to make the TListbox 300 pixels wide.

uses
ShellAPI

{ ... }
SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 300, 0);
{ ... }