Você pode mudar para o proximo componente ou o componente anteriror
usando esta rotina no evento FormKeyDown, para que ela funcione a
propriedade KeyPreview do formulário deve estar setada como true:
procedure TForm1.FormKeyDown(
Sender : TObject;
var Key: Word;
Shift : TShiftState
) ;
var
Direction : Integer;
begin
Direction := -1;
case Key of
//Estou usando as setas para cima, para baixo e enter, mas vc pode
usar qualquer tecla que sejejar
VK_DOWN, VK_RETURN : Direction := 0; {Next}
VK_UP : Direction := 1; {Previous}
end;
if Direction <> -1 then
begin
Perform(WM_NEXTDLGCTL, Direction, 0) ;
Key := 0;
end;
end;
Paulo Cesar Rohleder escreveu:
> Por favor como faço para pular entres os campos com as setas( frente,
> tras, direita esquerda)
> preciso saber como faço esta implemtação..alguém tem um exemplo???????
>
>
> ---
> avast! Antivirus: Outbound message clean.
> Virus Database (VPS): 0525-3, 23/06/2005
> Tested on: 23/6/2005 10:38:11
> avast! - copyright (c) 1988-2005 ALWIL Software.
> http://www.avast.com
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou [EMAIL PROTECTED]
>
>
>
> ------------------------------------------------------------------------
> *Links do Yahoo! Grupos*
>
> * Para visitar o site do seu grupo na web, acesse:
> http://br.groups.yahoo.com/group/delphi-br/
>
> * Para sair deste grupo, envie um e-mail para:
> [EMAIL PROTECTED]
> <mailto:[EMAIL PROTECTED]>
>
> * O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
> Serviço do Yahoo! <http://br.yahoo.com/info/utos.html>.
>
>
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
