1   
2   (* This code will be useful whenever you have more text in a
3   listbox than the listbox can display, by setting he vertical
4   scrollbar to horizontal. *)
5   unit Unit1;
6   
7   interface
8   
9   uses
10    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
11    Dialogs, StdCtrls;
12  
13  type
14    TForm1 = class(TForm)
15      ListBox1: TListBox;
16      procedure FormCreate(Sender: TObject);
17    private
18      { Private declarations }
19    public
20      { Public declarations }
21    end;
22  
23  var
24    Form1: TForm1;
25  
26  implementation
27  
28  {$R *.dfm}
29  
30  procedure TForm1.FormCreate(Sender: TObject);
31  begin
32  SendMessage(Listbox1.Handle, LB_SetHorizontalExtent, 1000, Longint(0));
33  end;
34  
35  end.