Вопрос: Как создать в ListBox горизонтальную прокрутку, если ее не оказалось после заполнения ListBox?

Ответ :

code:
--------------------------------------------------------------------------------

void TForm1::AddLboxScrollBar( void )
{
    int ilMaxWidth = 0;
    const int ilBorder = 12;

    for ( int ilStringNo = 0; ilStringNo < ListBox1 -> Items-> Count; ++ilStringNo ) {
        int ilWidth = ListBox1 -> Canvas ->
                      TextWidth( ListBox1 -> Items -> Strings[ ilStringNo ] );
        if ( ilWidth > ilMaxWidth )
            ilMaxWidth = ilWidth;
    }

    SendMessage( ListBox1 -> Handle,
                 LB_SETHORIZONTALEXTENT,
                 ilMaxWidth + 2 * ilBorder, 0 );
}

--------------------------------------------------------------------------------