Ajustar el width de un TListBox

[salvica]

Empezado por ixMike

Hola.

Para saber el ancho de un ListBox yo utilizo esto:

Código Delphi [-]Procedure TForm1.Button1Click(Sender: TObject);
var ancho, n: integer;
begin ancho:=0; for n:=0 to ListBox1.Items.Count-1 do if ListBox1.Canvas.TextWidth(ListBox1.Items[n])>ancho then ancho:=ListBox1.Canvas.TextWidth(ListBox1.Items[n]); ListBox1.Width:=Ancho; end;


Espero que te sea de ayuda.

Saludos

Me ha servido de muuuuuuucha ayuda
Gracias
Salvica