voltar ao dbedit anterior ao apertar a seta pra cima ??

Delphi

09/01/2004

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 ??


Mprocha

Mprocha

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

09/01/2004

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;



GOSTEI 0
Rodolpho123

Rodolpho123

09/01/2004

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..........!


GOSTEI 0
Mprocha

Mprocha

09/01/2004

:D
valeu brothers !!

Marcos Rocha


GOSTEI 0
POSTAR