Mudança automatica de campo
01/02/2003
0
Grato.
Oscar Ribeiro
Posts
02/02/2003
Anonymous
if Lenght(trim(editdigitando.text)=5 then
proximoedit.setocus
O número 5 representa a quantidade de digitos permitido para pular ao proximo edit!
Valeu!
02/02/2003
Lcquinhone
campo.setfocus;
***************************
Se for o último campo e vc quiser que ele de o OK do form, coloque:
If Length(DbSenha.Text) = 6 then
BtnOk.Click
***************************
Coloque sempre no evento OnChange
Ok mano
Luis Carlos Quinhone
Programador Visual
03/02/2003
Flaviodfp
na propriedade KeyPreview do Form, coloque para True. No envento onKeyPress do Form digite o seguinte (depois do begin e antes do end):
procedure TfmCliente.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := 0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
Isto faz com que a tecla ENTER funcione no Form, se vc quiser q em cada form do seu projeto a tecla ENTER funcione, vc deve repetir estes paassos para cada form do projeto.
ats,
flaviodfp
03/02/2003
Flaviodfp
na propriedade KeyPreview do Form, coloque para True. No envento onKeyPress do Form digite o seguinte (depois do begin e antes do end):
procedure TfmCliente.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
key := 0;
Perform(WM_NEXTDLGCTL,0,0);
end;
end;
Isto faz com que a tecla ENTER funcione no Form, se vc quiser q em cada form do seu projeto a tecla ENTER funcione, vc deve repetir estes paassos para cada form do projeto.
ats,
flaviodfp
Clique aqui para fazer login e interagir na Comunidade :)
