(Resolvido) Como anular a tecla TAB

[Vivendo&Aprendendo]

Galera eu fiz em minha aplicação a alteração para que a tecla Enter funcione como a tecla TAB para mudar de campos, mas agora eu preciso anular a tecla Tab em todo o meu form, fazer com que ao precionar Tab nada aconteça. Como eu posso fazer isso?

Já tentei no OnKeyDown fazer a tecla receber 0, Null, e nada acontece quando preciono Tab ele joga o foco para o outro campo e não posso deixar isso acontecer.

Alguém ai tem outra idéia?

Abraços

Alexandre

Editado Julho 21, 2008 por Vivendo&Aprendendo

[niubi]

var h_Hook:HHOOK;
function Keyboard_callback(nCode:Integer; WP:WParam; LP:lParam):Integer; stdcall;
begin
  if (nCode <> HC_ACTION) or (WP <> 9) then
    Result := CallNextHookEx(h_Hook, nCode, WP, LP)
  else
    Result := 1;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  h_Hook := SetWindowsHookEx(WH_KEYBOARD, @Keyboard_callback, 0, GetCurrentThreadId);
end;

Editado Julho 15, 2008 por niubi

[Vivendo&Aprendendo]

Olá Niubi

Olha funcionou beleza, mas como eu faço para tirar o beep que ocorre quando teclo enter e o foco muda de campo?

E como faço para deixar a função em uma unit e só chamar ela nas outras depois?

Abraços

Alexandre

Editado Julho 15, 2008 por Vivendo&Aprendendo

[niubi]

Olá,

Quanto ao beep eu não sei mas deve estar em alguma chave do regedit nas configurações de sons do Windows. Acho que é só ir lá e retirá-lo.

Qual função você se refere ? se for a Keyboard_callback ela é uma função de callback e quando você instala a hook pelo SetWindowsHookEx, toda a vez que o teclado for utilizado, a função é chamada.

[Vivendo&Aprendendo]

É que eu tentei deixar esta função que você me passou em um form e usá-la em outro só chamando mas não funcionou deu erro.

E se alguém ai souber como faço para não dar o som de beep quando passo de um campo para o outro usando o enter eu agradeço também... :rolleyes:

Alexandre

[Jhonas]

se alguém ai souber como faço para não dar o som de beep quando passo de um campo para o outro usando o enter eu agradeço também...

o som de beep só ocorre quando voce não tem instalado no micro uma placa de som

abraço

[Vivendo&Aprendendo]

Olá Jhonas, me desculpe mas não é não, pois estou no meu micro ouvindo música e o beep ocorre do mesmo jeito.

[Jhonas]

o beep sai do autofalante ou do transdutor da placa ?

[Vivendo&Aprendendo]

Jhonas no notbook onde estou fazendo o sistema sai da caixa de som, mas no pc normal sai do transdutor... mas os dois estão com a placa de som instalada e funcionando.

[Jhonas]

procedure TForm1.Button1Click(Sender: TObject);
begin
   { Evento Som Padrão }
   MessageBeep(0); { ou Beep; }
   sleep(500);
  
 { Evento Parada Crítica }
   MessageBeep(16);
   sleep(500);
  
 { Evento Pergunta }
   MessageBeep(32);
   sleep(500);
  
 { Evento Exclamação }
   MessageBeep(48);
   sleep(500);
  
 { Evento Asterisco }
   MessageBeep(64);

end;

faça o teste:

Se o som estiver saindo do autofalante voce ouvira todos estes sons, caso contrario não

eu preciso anular a tecla Tab em todo o meu form

tente no evento ONKEYPRESS do form

Código:

if Key = #9 then

Key := 0;

ou veja

http://www.forumweb.com.br/foruns/index.ph...49093&st=15

abraço

[Vivendo&Aprendendo]

Obrigado pelas dicas Jhonas, está resolvido, consegui adaptar o código que você postou no link. Ficou assim:

procedure TForm1.CMDialogKey(Var Msg: TWMKEY);
begin
  if (ActiveControl is TEdit) and
     (TEdit(ActiveControl).Focused) then
  begin
    if (Msg.Charcode = VK_TAB) then
      Msg.Result := 0
    else
      if (Msg.Charcode = VK_RETURN) then
      begin
        Msg.Result := -1;
        SelectNext(ActiveControl, True , True);
      end;
  end
  else
    inherited;
end;

Declare na private do form:

procedure CMDialogKey(Var Msg: TWMKEY);

Funcionou certinho, o enter como Tab e o Tab anulado.

Obrigado