Ajustar ancho del desplegable de un ComboBox

[[Lepe]]

Para saber el ancho que tiene en Pixels según la fuente elegida, pues usa la humilde rutina FontWidth, o bien incluso el Combo1.canvas.TextWidth.

Código Delphi [-]
AnchoDelCombo := Fontwidth(Combo1.Font, Combo1.items[3]);

Para hacer más eficiente el tema, guardar en un .ini, registro, etc, el máximo ancho que hay por el momento; al añadir un texto al combo, se compara el máximo ancho con el ancho del nuevo Item y si es mayor el nuevo, guardarlo en el .ini, así evitamos hacer las comparaciones con todos los elementos cada vez que se despliega el combo.

Saludos