Navegação por edits

Delphi

10/02/2004

Caros amigos .


Em um formulário de cadastro , onde tem vários edits , e já aprendi o código de como fazer para o Enter funcionar como o TAB , só que num programa que fi e infelizmente não vem com código fonte , há uma rotina que faz voltar ao edit anterior usando a tecla que aponta para cima no teclado que usamos para jogar jogos . Alguém sabe como fazer isto ?



Obrigado pela atenção de todos . E uma boa tarde ...


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Osocram

Osocram

10/02/2004

Faz o seguinte

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
If key = vk_return Then
selectnext(activecontrol, false, true);
// esse showmessage vc usa p qdo vc quiser descobrir qual eh o numero da ´key´ q corresponde a cada tecla.
// ShowMessage(InttoStr(key));

end;


GOSTEI 0
Maicongabriel

Maicongabriel

10/02/2004

...voltar ao edit anterior usando a tecla que aponta para cima no teclado que usamos para jogar jogos . Alguém sabe como fazer isto ?

Hehehe, tecla de jogar jogos! Nem todos os
jogos utilizam esta tecla para mover, mas...
...O código é o seguinte::
  { volta o foco }
  if key = vk_Up then
    Perform(WM_NextDlgCtl, 0, 0);
  { avanca o foco }
  if Key = VK_Return then
    Perform(WM_NextDlgCtl, 1, 0);

Note que só mudou 1 dos parâmetros :wink:


GOSTEI 0
POSTAR