QUICK TIPS: Enter por Tab no DBGrid e StringGrid

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (0)

Veja como fazer ENTER em vez de TAB no formulário, no DBGrid e no StringGrid.



Olá Pessoal,

Bem trocar o Enter por Tab no form não é difícil, o código é bem simples. Porém as vezes recebo alguns emails com duvidas de como fazer isso funcionar dentro de um DBGrid e um StringGrid.

Pois bem nesta Quick Tips eu mostro alguns macetes para que isso funcione sem traumas. O conceito e muito simples. Além disso vamos fazer algumas variações do famoso KeyPress para trocar enter por tab.

Primeiramente vamos alterar a propriedade "KeyPreview" do Form para true. Isso é necessario para que todo o evento de pressionamento de tecla seja "rapassado" do controle que possui o foco para o formulario que o contem.

Feito isso vamos ao
evento "OnKeyPress" do Form acrescente o código abaixo:

procedure TFrmPadrao.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

O código é bem simples. Interceptamos o pressionamento de teclas e verificamos se a tecla foi o enter (#13). Caso seja enviamos uma mensagen para o proprio form para mudar o foco para o proximo controle. Esta ordem é definida atraves do tab order de cada componente.

Agora como a coisa funciona em um Grid ou String Grid. A principio da mesma forma porem agora não iramos mover o foco para o controle e sim enviar uma mensagem de pressionamento de tecla. simulamos o pressionamento da tecla tab atraves do VK_TAB mas poderiamos simular o pressionamento de qualquer tecla. Observe:

StringGrid

procedure TFrmPadrao.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    StringGrid1.Perform(WM_KEYDOWN, VK_TAB, 0);
end;

DBGrid

procedure TFrmPadrao.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
    DBGrid1.Perform(WM_KEYDOWN, VK_TAB, 0);
end;


Agora vamos voltar ao famoso KeyPress. Que tal ao pressionar o Enter avancarmos um controle e ao pressionar esc voltarmos um controle ???  Altere o codigo do OnKeyPress do Form para o codigo abaixo:


procedure TFrmPadrao.FormKeyPress(Sender: TObject; var Key: Char);
begin
  case Key of
   #13: Perform(WM_NEXTDLGCTL, 0, 0);
   #27: Perform(WM_NEXTDLGCTL, 1, 0);
  end;
end;

O sistema operacional interage com os controles de uma aplicação através de Mensagens. No delphi temos como mandar as mensagem com os comandos SendMessage, PostMessage e Perform. Com o perform mandamos a mensagem direto para o controle sem passar pelo SO.

Até o próximo QUICK TIPS.

Wesley Yamazack

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?