Setfocus

Question

Salve pessoalEstou fazendo um form para registro do meu programa ... Dai estou querendo enfeitar um pouquinho ... Quero fazer aquele efeito que quando se digita quatro caracteres no Edit ele pula para...

Marcelo Saviski · Answer

perform(WM_NEXTDLGCLT,0,0) isso faz o foco �pular� para o outro edit...

Marcelo Bh · Answer

A dica que vc me deu ate funciona mas ... quando eu coloco o primeiro caractere ele ja pula para o proximo ... mas eu queria que pulasse quando eu digitasse 4 caracteres...

Marcelo Saviski · Answer

n�o era para tirar o if que vc j� tinha, essa era a parte:
�daqui para frente eu nao sei ... �

fica assim:

if Length(TEdit(Sender).Text) = 4 then perform(WM_NEXTDLGCLT,0,0) ;

R�mulo Barros · Answer

Edit1.tag := 0;Edit2.Tag := 1;Edit3.Tag := 2;Edit4.Tag := 3;Evento onchange do edit;Begin   if(Length(TEdit(Sender).Text) = 4 )then   Case Tedit(Sender).Tag Do       0: Edit2.SetFocus;       1: Edit3.SetFocus;       2: Edit4.Setfoucs;   End;End;No evento Onclick dos 3 �ltimos �ltimos edits, indique para o evento onclick do primeiro edit.......

Marcelo Saviski · Answer

J� que foi tocado no assunto, para que serve essa propriedade Tag?pode fazer o que quiser com ela?...

Beppe · Answer

Ela tah ali de quebra-galho. Pode-se armazenar algum dado(Integer), ou usando typecast(Tag := Integer(TMemoryStream.Create)) at� mais informa��o. Eu n�o costumo usar, mas ele pode ser bastante �til, tipo ter um n�mero especifico para agrupar componentes relatados, etc...

Ataliba

Marcelo Saviski · Answer

Legal, bom saber, valew Ataliba...

F�rum Setfocus #191500