Dbgrid Tudo Maiusculo
Tenho banco de dados access, no qual tenho uma aplicação feita em delphi através do ado. como fazer quando digitar no Dbgrid, tudo fique em maiusculo, independentimente da tecla caps lock esteja ativa ou não?
Muito Grato,
Adrino
Muito Grato,
Adrino
Xadriano
Curtidas 0
Respostas
Misael
22/07/2004
No evento onKeyPress
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedIndex = 1 then
Key := UpCase(Key);
end;
Para aceitar acentuação...
Key := AnsiUpperCase(Key)[1];
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if DBGrid1.SelectedIndex = 1 then
Key := UpCase(Key);
end;
Para aceitar acentuação...
Key := AnsiUpperCase(Key)[1];
GOSTEI 0