Если число строк в ListBox становится больше его высоты, то автоматически появляется скроллер. Как сделать так, чтобы горизонтальный тоже появлялся в случае надобности?

Это сложно. Нужно будет подменять WndProc, самому отрисовывать итемы и т.д.
Вот, например, скроллбар появится, но ничего не делает:

Код

var  OldWndProc : pointer; function LBWndProc (hwnd1 : HWND; uMsg : cardinal; wP : WPARAM; lP : LPARAM) : LRESULT; stdcall; begin  if uMsg = WM_HSCROLL then  begin // < скроллирование >    Result := 0;  end    else  Result := CallWindowProc(OldWndProc, hwnd1, uMsg, wP, lP); end; procedure TForm1.Button2Click(Sender: TObject); begin  with ListBox1 do  begin    SetScrollRange (Handle, SB_HORZ, 0, ClientWidth, False);    EnableScrollBar (Handle, SB_BOTH, ESB_ENABLE_BOTH);    ShowScrollBar (Handle, SB_BOTH, true);    OldWndProc := pointer(SetWindowLong(Handle, GWL_WNDPROC, integer(@LBWndProc)));  end; end;

В Delphi компонент TListBox автоматически включает в себя вертикальный scrollbar. Полоска прокрутки появляется в том случае, если все элементы списка не помещаются в видимую область списка. Однако, list box не показывает горизонтального скролбара, когда ширина элементов превышает ширину списка. Конечно же существует способ добавить горизонтальную полосу прокрутки.

Добавьте следующий код в событие Вашей формы OnCreate.

Код

procedure TForm1.FormCreate(Sender: TObject);   var    i, MaxWidth: integer;   begin    MaxWidth := 0;    for i := 0 to LB1.Items.Count - 1 do    if MaxWidth < LB1.Canvas.TextWidth(LB1.Items.Strings[i]) then      MaxWidth := LB1.Canvas.TextWidth(LB1.Items.Strings[i]);    SendMessage(LB1.Handle, LB_SETHORIZONTALEXTENT, MaxWidth+2, 0);   end;

Приведённый код определяет ширину в пикселях самой длинной строки списка. Затем он использует сообщение LB_SETHORIZONTALEXTENT, чтобы установить ширину горизонтального скролбара в пикселях. Два дополнительных пикселя добавленные к MaxWidth служат для стрелки в правом углу list box-а.

alex-co, а я замудрить опять хотел ...