Fórum voltar ao dbedit anterior ao apertar a seta pra cima ?? #205291
09/01/2004
0
colegas,
pra mim ir ao proximo dbedit ao apertar o enter eu faço assim:
procedure TForm.dbeditKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
selectnext(sender as TWinControl, true, true);
key := 0;
end;
end;
... mas como faço pra voltar ao dbedit anterior ao apertar a seta pra cima ??
pra mim ir ao proximo dbedit ao apertar o enter eu faço assim:
procedure TForm.dbeditKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then
begin
selectnext(sender as TWinControl, true, true);
key := 0;
end;
end;
... mas como faço pra voltar ao dbedit anterior ao apertar a seta pra cima ??
Mprocha
Curtir tópico
+ 0
Responder
Posts
09/01/2004
Fabio.hc
Tente assim:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN: Perform(WM_NEXTDLGCTL,0,0);
VK_UP: Perform(WM_NEXTDLGCTL,1,0);
end;
end;
Responder
Gostei + 0
09/01/2004
Rodolpho123
Eu uso assim:
If KEY=VK_UP then
DbeditAnterior.SetFoccus;
Caso queira saber os código do teclado, veja no Help do Delphi, o Tópico ´Virtual Key Codes´;
Espero te-lo ajudado....;
Abraços..........!
If KEY=VK_UP then
DbeditAnterior.SetFoccus;
Caso queira saber os código do teclado, veja no Help do Delphi, o Tópico ´Virtual Key Codes´;
Espero te-lo ajudado....;
Abraços..........!
Responder
Gostei + 0
09/01/2004
Mprocha
:D
valeu brothers !!
Marcos Rocha
valeu brothers !!
Marcos Rocha
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)