Funcionou perfeitamente.

Muito obrigado.




  ----- Original Message ----- 
  From: Leandro 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, April 24, 2008 10:33 AM
  Subject: Re: [delphi-br] Tecla TAB


  Faça o seguinte:

  - Coloque um ApplicationEvents no form principal do seu programa;
  - Coloque o seguinte código dentro do evento OnMessage dele:

  if (Msg.Message = WM_KEYDOWN) AND (Msg.wParam = VK_TAB) then
  begin
  Msg.wParam := 0;
  Handled := True;
  end;

  Flw

  ----- Original Message ----- 
  From: Adauri Antonio Camacho Junior 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, April 24, 2008 9:45 AM
  Subject: Re: [delphi-br] Tecla TAB

  Bom Dia......

  O problema é esse, quando eu teclo a tecla TAB, nao passa pelo keydown do 
form. Nao sei aonde detectar se a tecla foi teclada.

  Jr.

  ----- Original Message ----- 
  From: Paulo Casagrande 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Thursday, April 24, 2008 7:35 AM
  Subject: Re: [delphi-br] Tecla TAB

  Bom dia a todos...

  Onde você quer fazer isso:

  A) Toda a aplicação.
  B) Apenas uns forms.
  C) Apenas em alguns componentes.

  Sugestão:

  A maneira mais simples seria através do keyDown identifique se foi 
  teclado um TAB e retorne um 0 no lugar.

  []

  > Boa noite a todos.
  >
  > Eu gostaria de bloquear a tecla TAB, eu queria que esta tecla não faça
  > nada. Deltalhe, sem passar para false os TabStops dos componentes.
  >
  > Obrigado
  >

  ----------------------------------------------------------

  No virus found in this incoming message.
  Checked by AVG. 
  Version: 7.5.524 / Virus Database: 269.23.4/1395 - Release Date: 24/4/2008 
07:24

  [As partes desta mensagem que não continham texto foram removidas]

  [As partes desta mensagem que não continham texto foram removidas]



   


------------------------------------------------------------------------------


  No virus found in this incoming message.
  Checked by AVG. 
  Version: 7.5.524 / Virus Database: 269.23.4/1395 - Release Date: 24/4/2008 
07:24


[As partes desta mensagem que não continham texto foram removidas]

Responder a