Ancho de un TListBox

[beatriz g]

Hola tengo un problemilla y es que al insertar en un TListBox nuevos campos algunos de estos son mas anchos que el TListBox y no se ven completos.
Se puede añadir de alguna manera barras de despalzamiento para el ancho del TListBox cuando el campo que se añada sea mas ancho que este.
Gracias.

[roman]

Prueba con este procedimento:

Código Delphi [-]
procedure SetHorizontalScrollBar(ListBox: TListBox);
var
  W, I: Integer;

begin
  with ListBox do
  begin
    W := ClientWidth;

    for I := 0 to Items.Count - 1 do
      if W < Canvas.TextWidth(Items[i]) then
        W := Canvas.TextWidth(Items[i]);

    if W > ClientWidth then
      Inc(W, 4);

    Perform(LB_SETHORIZONTALEXTENT, W, 0);
  end;
end;

Tendrías que aplicar este procedimiento cada vez que hagas un cambio en el ListBox.

// Saludos