Re: [delphi-br] Re: Enter funcionando como Tab

Sun, 11 Feb 2007 06:39:59 -0800 

Instala com componentes da suíte Jedi, que lá você terá o componente: 
TJvEnterAsTab, ele ajuda demais nesses casos.
Boa sorte!

Jefferson

  ----- Original Message ----- 
  From: barblo25 
  To: delphi-br@yahoogrupos.com.br 
  Sent: Friday, February 09, 2007 2:00 PM
  Subject: [delphi-br] Re: Enter funcionando como Tab


  Meu Brother ver se esse funciona pra vc. Pois eu utilizo essa rotina 
  no evento onKeyDown do form. E depois vc utiliza herança, estais 
  entendo?. Qualquer coisa eh so dizer. Ele so não ativa quando eh em 
  DBGRID.

  var
  bDirecao: Integer;
  begin
  bDirecao := -1;
  if not (ActiveControl is TDBGrid) then
  begin

  case Key of
  VK_UP: bDirecao := 1;
  VK_DOWN,VK_RETURN: bDirecao := 0;
  end;

  if (bDirecao <> -1) then
  perform(WM_NEXTDLGCTL, bDirecao, 0) ;

  end;
  end;

  --- Em delphi-br@yahoogrupos.com.br, "blcksun954" 
  <[EMAIL PROTECTED]> escreveu
  >
  > Tem algum modo simples de fazer com que todos os componnetes de
  > edição (TEdit, TComboBox, etc...) de um projeto passem a tratar a
  > tecla Enter como tratam a Tab sem ter de escrever uma função pra 
  cada
  > componente?
  > Estou usando Delphi 5.
  >



   

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

Responder a