foco p/ o proximo controle ao digitar o limite do textbox

Question

No meu form tenho 2 textbox um de DDD e outro de Telefone, no textbox DDD, a propriedade maxlenght=2 e o campo s� aceita n�meros (trato isso no evento keypress).Gostaria que ao se digitar no texbox DD...

Angela · Answer

sobe...

Titanius · Answer

Olha n�o � o jeito mais bonito de se fazer, porem funcionou aqui comigo:

No evento KeyPress do Edit voce insere

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
 s: string;
begin
  s := Edit1.Text;
  if Length(s) = (Edit1.MaxLength) then
  begin
    Key := #0;
    Perform(Wm_NextDlgCtl, 0, 0);
  end;
end;

com eu disse, n�o � bonito, porem funciona! :D

[]s

F�rum foco p/ o proximo controle ao digitar o limite do textbox #264139