GARANTIR DESCONTO

Fórum Certo numero de caracteres depois pular pro form seguinte! #203827

01/01/2004

0

Olá pessoal,
saberiam me dizer como fazer para dar um setfocus supondo que ele deveria ser ativado ao ser digitado 5 caracteres? como seria pra pular de edit nesse caso?


Obrigado


Lipsil

Lipsil

Responder

Posts

02/01/2004

Tnaires

Acredito q vc quer ajustar o foco para outro controle qdo o usuário digitar cinco caracteres no edit né?
Se for isso, escreva o seguinte:
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Length(Edit1.Text) = 5 then  // Aqui pode ser o número q vc quiser
    Componente.SetFocus;         // O componente pode ser Edit, Form, etc
end;

Esse é o evento OnChange do Edit.
Sucesso


Responder

Gostei + 0

02/01/2004

Lipsil

valew kra,.
é isso aí,
mas no caso, como seria num maskedit?


Obrigado


Responder

Gostei + 0

03/01/2004

Tnaires

Putz, essa dúvida é cruel...
Eu tentei achar um jeito aqui mas num consegui...
Vou continuar tentando, e talvez algum usuário do fórum responda pra nós.
Té mais.


Responder

Gostei + 0

03/01/2004

Demian Soares

para conseguir o que quer com o maskedit, va ate a propriedade

MaxLenght do componente e coloque ali a quantidade de caracteres que vc quer que seja editado.

depois no evento Onchhange do componente maskedit coloque o seguinte codigo..

if Length(MaskEdit1.Text)=5 then
BitBtn1.SetFocus;

depois do then vc manda o foco para aonde quiser...


Responder

Gostei + 0

21/01/2004

Lipsil

Eu tb já pensei nisso, mas não funciona!!! :(

]alguem saberia um meio de fazer passar um maskedit depois de tipo 8 caracateres para fazer ele dar um setfocus em um edit seguinte?



Valew


Responder

Gostei + 0

21/01/2004

Maicongabriel

Amigo, faltou você pesquizar no forum !
Esse mesma pergunta que você fez foi proposta e resolvida no dia 19/01/2004, ou seja, nesta ultima segunda-feira !

Veja :: [url]http://delphiforum.icft.com.br/forum/viewtopic.php?t=33022&highlight=maskedit[/url] :twisted:


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar