Fórum ajuda com enter no lugar de tab #334530
11/12/2006
0
Começei a aprender delphi agora e ainda não fiz o curso.
O meu problema é
quero usar Enter no lugar de tab, peguei um codigo aqui mesmo mas não esta funcionando. Foi este.
coloquei o keypreview para true;
e coloquei esse codigo no evento onkeypress
if key = #13 then
begin
key := 0;
SelectNext(activecontrol,True,True);
edtLoginSenha.SetFocus;
end;
mas não esta funcionando. foi alguma que fiz no projeto, pois, testei ele um novo projeto e deu certo. O SERA QUE EU FIZ.
O meu problema é
quero usar Enter no lugar de tab, peguei um codigo aqui mesmo mas não esta funcionando. Foi este.
coloquei o keypreview para true;
e coloquei esse codigo no evento onkeypress
if key = #13 then
begin
key := 0;
SelectNext(activecontrol,True,True);
edtLoginSenha.SetFocus;
end;
mas não esta funcionando. foi alguma que fiz no projeto, pois, testei ele um novo projeto e deu certo. O SERA QUE EU FIZ.
Flaviog
Curtir tópico
+ 0
Responder
Posts
11/12/2006
Adriano_servitec
Começei a aprender delphi agora e ainda não fiz o curso.
O meu problema é
quero usar Enter no lugar de tab, peguei um codigo aqui mesmo mas não esta funcionando. Foi este.
coloquei o keypreview para true;
e coloquei esse codigo no evento onkeypress
if key = #13 then
begin
key := 0;
SelectNext(activecontrol,True,True);
edtLoginSenha.SetFocus;
end;
mas não esta funcionando. foi alguma que fiz no projeto, pois, testei ele um novo projeto e deu certo. O SERA QUE EU FIZ.
Deixando o KeyPreview do form como true tente este codigo no evento onkeypress do form
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin If Key = 13 then //enter Perform(Wm_NEXTDLGCTL,0,0); If Key = 27 then //esc Perform(Wm_NEXTDLGCTL,1,0); end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)