Cita:
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.