Ancho de un TListBox
 

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.

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