Dicas - ListBox com barra de rolagem horizontal (scroll bar)

Veja nesta dica, como criar uma barra de rolagem horizontal em um componente ListBox.

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) ;

 

Artigos relacionados