Ayuda Con Listbox

[[egostar]]

Empezado por sanzCrito

buenos/as dias/noches!
mi problema es que tengo un listbox y necesito poner cadenas muy largas y cuando exceden el tamaño deol listbox no puedo visualizar el final d la cadena,pense que el tamaño se iva ajustar automaticamente pero no.
como hago?ahi alguna propiedad para esto o tengo que usar otro elemento?

Hola sanzCrito

Bienvenido al foro.

Debe existir una solución mejor y mas óptima que esta:

Código Delphi [-]
procedure TForm1.FormShow(Sender: TObject);
var
  ancho,i:integer;
begin
  ancho := 0;
  for i := 0 to ListBox1.Items.Count-1 do begin
     if ancho < Canvas.TextWidth(ListBox1.Items.Strings[i]) then
        ancho := Canvas.TextWidth(ListBox1.Items.Strings[i]);
  end;
  ListBox1.Width := Ancho+10;
end;

Seguro alguien posteara algo mejor

Salud OS

PD, te invito a leer nuestra guia de estilo.