Numero máximo caracteres en un TEdit (maxlength)

[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