[]
Andrei
Em 19/05/06, Allan <[EMAIL PROTECTED]> escreveu:
>
> Boa tarde colegas,
> preciso fazer uma rotina genérica para meu form que qdo pressionar a
> tecla "setinha pra cima" tenha o mesmo efeito de pressionar Shift + Tab, ou
> seja, volta um campo, tentei algo assim no on key dow do objeto:
>
> procedure TFOrm1.DbEdit94KeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> If key = 38 then BEGIN
> Showmessage('seta pra cima precionada');
> DbEdit93.Setfocus;
> end;
> end;
>
>
> mas isso daria muito trabalho, teria como fazer uma rotina genérica, tipo
> no on key down do form, algo:
> procedure TFFuncionarios.FormKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> begin
> If key = 38 then BEGIN
> Showmessage('seta pra cima precionada');
> TabOrder := TabOrder - 1; // isso nada faz,ou ainda....
> Key := (Shift = [SSShift + Vk_TAB]);//isso dá erro
> end;
>
>
> []s
> Allan
>
[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]
| Yahoo! Grupos, um serviço oferecido por: | |
|
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 Termos do Serviço do Yahoo!.
