Member Avatar for especta

hi How to allow enter only 5 char in Tedit without using tmask?
Thanks.

Edited by especta because: n/a
  • 3 Contributors
  • 6 Replies
  • 101 Views
  • 1 Day Discussion Span
  • Latest Post Latest Post by crystalbit
Member Avatar for finalist

hi How to allow enter only 5 char in Tedit without using tmask?
Thanks.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  T:      string;
begin
  T := Edit1.Text;
  if (Length(T)>4) and (Key<>#8) then
    Key := #0;
end;

Key=#8 allows to be used BACKSPACE

commented: Thank you its help my very much +1
Member Avatar for crystalbit

it would be also good to check the length in case it is more than 5 each time, because if you paste some text (using shift-ins), it won't be filtered

Member Avatar for finalist

In case about pasting some text:

procedure TForm1.Edit1Change(Sender: TObject);
var
  T:      string;
begin
  T := Edit1.Text;
  if (Length(T)>4) then
  begin
    Edit1.Text := Copy(T, 1, 5);
    Edit1.SelStart := 6;
  end;  
end;
Edited by finalist because: n/a
Member Avatar for finalist 
procedure TForm1.Edit1Change(Sender: TObject);
var
  T:      string;
begin
  T := Edit1.Text;
  if (Length(T)>5) then
  begin
    Edit1.Text := Copy(T, 1, 5);
    Edit1.SelStart := 6;
  end;  
end;
Member Avatar for especta

Thank you very much.

Member Avatar for crystalbit

mm, I suppose everybody forgot about 'MaxLength' property

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.