Numero máximo caracteres en un TEdit (maxlength)

[jocaro]

Empezado por José Luis Garcí

si no recuerdo mal algo de eso ley hace años creo recordar que lo que hacia en el OnChange....

Gracias por tu ayuda. Imagino que el componente standard actuará de forma parecida.

De todos modos, me gustaría saber en que fichero fuente se encuentra el código que lo gestiona. Si algun miembro del foro puede indicarme, lo agradecería.

Un saludo

[olbeup]

Dentro de tú formulario, pulsa al Ctrl + Click izquierdo del ratón en el TEdit y te llevará directo a la fuente.

Un salduo

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

Busca el código fuente de la clase TCustomEdit.

[jocaro]

Gracias olbeup y Neftali por vuestra ayuda.

Mediante el atajo no he podido llegar a la fuente, pero he mirado el TCustomEdit, en el fuente Vcl.StdCtrls.pas, aunque no he conseguido ver el código donde controla el número máximo de caracteres.

Un saludo

[ecfisa]

Empezado por jocaro

Gracias olbeup y Neftali por vuestra ayuda.

Mediante el atajo no he podido llegar a la fuente, pero he mirado el TCustomEdit, en el fuente Vcl.StdCtrls.pas, aunque no he conseguido ver el código donde controla el número máximo de caracteres.

Un saludo

Hola jocaro.

Código Delphi [-]
...
procedure TCustomEdit.DoSetMaxLength(Value: Integer);
begin
  SendMessage(Handle, EM_LIMITTEXT, Value, 0)  // <<== Máximo de caracteres fijado: Value
end;
...

Acción que también podes ejecutar desde tu código, por ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Perform(EM_LIMITTEXT, 2, 0); 
end;

Aunque claro está que es mas simple usar la propiedad MaxLength...

Saludos

[jocaro]

Gracias por tu ayuda ecfisa

La curiosidad por conocer el código que valida la longitud máxima de un TEdit me surgió porque utilicé un componente derivado de TEdit que sólo permite números y carácter de decimales (TNumEdit), que no valida correctamente el límite definido en la propiedad maxlength.

Abusando de tu amabilidad, si en el TEdit uso la propiedad maxlength ¿en que evento se validaría ésta?, ¿en que en que clase, en que método? ¿se podría ver el código que se utiliza en dicho método?.

Un saludo

[ecfisa]

Hola jocaro.

Es que no es necesario que se valide, al enviar el mensaje EM_LIMITTEXT con 'n' caracteres a un edit control, el límite queda fijado mientras dura la vida del componente o se altere su valor mediante el envío de otro mensaje.

Saludos