[DELPHI] DIGITAÇÃO EM MAIÚSCULO OU MINÚSCULO NO DBGRID

O componente DBGrid é muito utilizado pelos desenvolvedores Delphi para apresentar dados de um DataSet para o usuário, seja esses dados resultado de um select no banco de dados, registros temporários, etc.

Neste post irei mostrar como forçar a digitação em maiúsculo ou minúsculo no DBGrid.

Para implementar essa rotina, iremos utilizar o evento OnKeyPress do DBGrid.

// Todo texto digitado em maiúsculo

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

  Key := AnsiUpperCase(Key)[1];

end;

// Todo texto digitado em minúsculo

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);

begin

  Key := AnsiLowerCase(Key)[1];

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】