Howto: auto advance to next control when a TEdit's maxlength is reached

Bert Moorthaemer

Delphi Developer

Fri, 22 Jul 2005 20:47:22 GMT

Howto: auto advance to next control when a TEdit's maxlength is reached

Hi all,

See subject

TIA

Bert.

AVerhoe..

Delphi Developer

Fri, 22 Jul 2005 23:53:01 GMT

Put this in the OnChange event of your TEdit

if Length(TEdit(Sender).Text) = TEdit(Sender).MaxLength then
NextControl.SetFocus;

HTH

Arno

Bert Moorthaeme

Delphi Developer

Sat, 23 Jul 2005 00:29:08 GMT

Arno,

Thanks I will try this

Bert.

<AVerhoe...@chromalloy.com> wrote in message

news:3e3e905d@newsgroups.borland.com...

> Put this in the OnChange event of your TEdit

> if Length(TEdit(Sender).Text) = TEdit(Sender).MaxLength then
> NextControl.SetFocus;

> HTH

> Arno