Taborder automatico em delphi

[hermeson 0]

Oi pessoal,como faco para passar campo a campo automaticamente, por exemplo: if Length(edtTarjeta.Text) = 16 then edtSucursal.SetFocus;ele ira passar para o outro campo, tem como fazer uma rotina automatica, para que eu n precise indicar o nome do proximo campo... q ele automaticamente saiba qual o taborder eh o proximo???obrigado,Hermeson

[WiCkEd 0]

Tenta usar Perform (CM_DialogKey, VK_TAB, 0) o processo não vai ficar totalmente automático mas, pelo menos, você não terá q colocar o nome do próximo edit ou outro componente.Ex. evento onkeypress do editif length(nomedoedit.text) = valor then Perform (CM_DialogKey, VK_TAB, 0);espero ter Ajudado B)

[hermeson 0]

Exatamente... muito obrigado mesmo....se nao for pedi muito...você sabe como faco para colocar em um campo edit apenas para aceitar numeros..apenas carateres numerico em um edit...obrigado mais uma vezHermeson

[emacruz 0]

Colque isto no envento OnKeyDown se eu naum me engano..(Sender as tEdit).ReadOnly := Key in [ #0..#9] ;

[WiCkEd 0]

Ah desculpa o atraso na reposta, fiquei um tempo sem dar as caras ops as teclas por aki hehehe. Bom se o exemblo do brother acima não funcionar você pode fazer assim:evento onkeypress do editvar tecla:string;begintecla:=key;try tecla:=inttostr(strtoint(tecla));except key:=#0; showmessage('digite um valor numérico'); end;end;dessa maneira a cada pressionamento de tecla forçará o usuário a digitar somente valores numéricos, então o campo só vai conter valores inteiros, mas se você quer que aceite vírgula(para valores reais) também você deve fazer assim:no evento onexit do edittry edit.text:=floattostr(strtofloat(edit.text));except showmessage('digite um valor numérico'); edit.setfocus; end;Obs. Se você testar com ele sendo debugado(no F9) vai dar msgs de erro, mas rodando normalmente não terá esse tipo de erro. Só você dar um Buid ir no diretório e executá-lo.mas uma vez espero ter ajudado B)