Fórum Navegação por edits #212999
10/02/2004
0
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 ...
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
Curtir tópico
+ 0
Responder
Posts
10/02/2004
Osocram
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;
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;
Responder
Gostei + 0
10/02/2004
Maicongabriel
...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:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)