[delphi-br] Retornar sem Shift TAB, substituir Shift + TAB por seta pra cima

Fri, 19 May 2006 12:37:18 -0700 

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

Responder a