Tecla ENTER
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
Curtidas 0
Respostas
Laureano Pereira
01/11/2003
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;
GOSTEI 0
Henry
01/11/2003
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.
GOSTEI 0
Otto
01/11/2003
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.
GOSTEI 0