Fórum Mudar foco ao digitar no edit #395023

procedure TForm1.FormCreate(Sender: TObject);begin  Application.OnMessage := OnMessageNew;end;
procedure TForm1.OnMessageNew(var Msg: TMsg; var Handled: Boolean);begin  if ( Screen.ActiveControl is TEdit ) then  begin    if (Length((Screen.ActiveControl As TEdit).Text) = (Screen.ActiveControl As TEdit).MaxLength) and       ((Screen.ActiveControl As TEdit).Tag = 1)    then    begin      (Screen.ActiveControl As TEdit).Tag := 1;    end    else    begin      (Screen.ActiveControl As TEdit).Tag := 0;    end;    if ((Screen.ActiveControl As TEdit).MaxLength > 0) and       (Length((Screen.ActiveControl As TEdit).Text) = (Screen.ActiveControl As TEdit).MaxLength) and       ((Screen.ActiveControl As TEdit).Tag = 0) then    begin      (Screen.ActiveControl As TEdit).Tag := 1;      Perform(WM_NEXTDLGCTL,0,0);    end;  end;end;