Al modificar MaxLength ajustar TEdit.Width

[Neftali [Germán.Estévez]]

Empezado por elGuerrero

Para calcular el ancho he visto algunos códigos por la red pero no he encontrado cómo atrapar/generar el evento que indique la modificación del valor de Autosize o de MaxLength para asignar el nuevo valor a Width.

Yo probaría redefiniendo estos dos métodos (revisa el código de StdCtrls.pas)

Código Delphi [-]

procedure SetAutoSize(Value: Boolean); override;

procedure DoSetMaxLength(Value: Integer); virtual;

El primero es el método de la propiedad AutoSize, y el segundo se llama directamente desde el método SetMaxLength.