Fórum Tecla ENTER #192147
01/11/2003
0
Como eu faço para que num DBEDIT, ao ser pressionada a tecla ENTER, o foco passe para o próximo DBEDIT?
Já utilizei quase todos os eventos do DBEDIT e não obtive o resultado esperado...
POR FAVOR, ME SOCORRAM!!!!!!!!!!!!!!!!!!!!!!!!!!!
Inara
:roll: :wink: :lol:
Já utilizei quase todos os eventos do DBEDIT e não obtive o resultado esperado...
POR FAVOR, ME SOCORRAM!!!!!!!!!!!!!!!!!!!!!!!!!!!
Inara
:roll: :wink: :lol:
Inara
Curtir tópico
+ 0
Responder
Posts
01/11/2003
Laureano Pereira
Use isto:
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
procedure TMainForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then begin
Key := 0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
Responder
Gostei + 0
01/11/2003
Henry
Brother, eu faço assim:
No evento on keypress.
if key = #13 then
dbedit.setfocus;
Aonde Dbedit é o edit que ira o focus.
Um abraço, Henry.
No evento on keypress.
if key = #13 then
dbedit.setfocus;
Aonde Dbedit é o edit que ira o focus.
Um abraço, Henry.
Responder
Gostei + 0
01/11/2003
Otto
bom, primeiro altere a propriedade KeyPreview do form para true.
depois no Evento OnKeyPress do form adicione a seguinte rotina:
if key = #13 then
begin
key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
---
pronto.
depois no Evento OnKeyPress do form adicione a seguinte rotina:
if key = #13 then
begin
key := 0;
Perform(WM_NEXTDLGCTL, 0, 0);
end;
---
pronto.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)