Tedit zeicheneingaben begrenzung

[Deep-Sea]

Die Frage "Was würde Delphi tun" hilft:

Delphi-Quellcode:

// Aus der StdCtrls.pas von D2006
procedure TCustomEdit.DoSetMaxLength(Value: Integer);
begin
  SendMessage(Handle, EM_LIMITTEXT, Value, 0)
end;