ListBox com barra de rolagem horizontal (scroll bar)

Veja nesta dica como acrescentar uma barra de rolagem horizontal ao ListBox, faça o procedimento:

 

procedure SetHorizontalScrollBar(lb : TListBox) ;

var

  j, MaxWidth: integer;

begin

  MaxWidth := 0;

  for j := 0 to lb.Items.Count - 1 do

  if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then

    MaxWidth := lb.Canvas.TextWidth(lb.Items[j]) ;

  SendMessage(lb.Handle, LB_SETHORIZONTALEXTENT,

    MaxWidth + 5, 0) ;

end;

 

{ Use da Seguinte maneira: }

SetHorizontalScrollBar(ListBox1) ;