Mudança automatica de campo
Quero que em uma aplicação ao terminar de um campo com o seu tamanho maximo mude para o proximo, sem a necessidade de pressionar teclas.
Grato.
Grato.
Oscar Ribeiro
Curtidas 0
Respostas
Anonymous
01/02/2003
Use o seguinte o evento OnChange:
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!
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!
GOSTEI 0
Lcquinhone
01/02/2003
If Length(campo.Text) = 6 then
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
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
GOSTEI 0
Flaviodfp
01/02/2003
olá,
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
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
GOSTEI 0
Flaviodfp
01/02/2003
olá,
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
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
GOSTEI 0